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PREFACE 


o This document is the reference manual to the Pascal/VS programming language. The 
Pascal/7VS Programmer's Guide, SH20-6162, is also available from IBM to help write 
programs in Pascal/VS. 


It is assumed that you are already familiar with Pascal and programming in a high 
level programming language. There are many text books available on Pascal; the fol- 
lowing list of books was taken from the Pascal User's Group Pascal News, December 
1978 NUMBER 13 and September 1979 NUMBER 15. You may wish to check later editions of 
Pascal News and your library for more recent books. 


e The Design of Well-Structured and Correct Programs by S. Alagic and M.A. Arbib, 
Springer-Verlag, New York, 1978, 292 pp. 


. ° Microcomputer Problem Solving by K.L. Bowles, Springer-Verlag, New York, 1977, 
563 pp. 


e A Structured Programming Approach to Data by D. Coleman, MacMillan Press Ltd, 
Londen, 1978, 222 pp. 


e A Primer on Pascal by R.W. Conway, D. Gries and E.C. Zimmerman, Winthrop Pub- 
lishers Inc., Cambridge Mass., 1976, 433 pp. 


e PASCAL: An Introduction to Methodical Programming by W. Findlay and D. Watt, 
Computer Science Press, 1978, 306 pp.; UK Edition by Pitman International Text, 
1978. 


e Programming in PASCAL by Peter Grogono, Addison-Wesley, Reading Mass., 1978, 
357pp. 


e Pascal Users Manual and Report by K. Jensen and N. Wirth, Springer-Verlag, New 
York, 1978, 170 pp. 


e Structured Programming and Problem-Solving with Pascal by R.B. Kieburtz, 
Prentice-Hall Inc., 1978, 365 pp. 
Cc e Programming via Pascal by J.S. Rohl and Barrett, Cambridge University Press. 


e An__ Introduction to Programming and Problem-Solving with Pascal by G.M. 
Schneider, S.W. Weingart and D.M. Perlman, Wiley & Sons Inc., New York, 394 pp. 


e Introduction to Pascal by C.A.G. Webster, Heyden, 1976, 129 pp. 


e Introduction to Pascal by J. Welsh and J. Elder, Prentice-Hall Inc., Englewood 
Cliffs, 220 pp. 


e A Practical Introduction to Pascal by I.P. Wilson and A.M. Addyman, 
Springer-Verlag New York, 1978, 145pp; MacMillan, London, 1978. 


e Systematic Programming: An Introduction by N. Wirth, Prentice-Hall Inc., 
Englewood Cliffs, 1973 169 pp. 


e Algorithms + Data Structures = Programs by N. Wirth, Prentice-Hall Inc., 
Englewood Cliffs, 1976 366 pp. 


This reference manual considers ISO/TC 97/7SC 5 N595 as the Pascal Standard although 
N565 15 a proposed standard and subject to further modi fication. 


STRUCTURE OF THIS MANUAL 


This manual is divided into the following major topics 
Chapter 1 is a summary of the language. 
Chapter 2 is a description of the basic units (lexical) of Pascal/VS. 
{ Chapters 3 through 9 are a top-down presentation of the language. 


Chapter 10 describes the I/0 procedures and functions. 
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Chapter 11 describes the predefined procedures and functions. 
Chapter 12 describes the compiler directives. 


Appendices provide supplemental information about Pascal/VS. 


PASCAL/VS SYNTAX DIAGRAMS 


The syntax of Pascal/VS will be described with the aid of syntax diagrams. These 
diagrams are essentially ‘road maps'; by traversing the diagram in the direction of 
the arrows you can identify every possible legal Pascal/VS program. 


Within the syntax diagram, the names of other diagrams are printed in lower case and 
surrounded by braces ('{}'). When you traverse the name of another diagram you can 
consider it a subroutine call (or more precisely a 'subdiagram call’). The names of 
reserved words are always in lower case. Special symbols (i.e. semicolons, commas, 
operators etc ) appear as they appear in a Pascal/VS program. 


The diagram traversal starts at the upper left and completes with the arrow on the 
right. Every horizontal line has an arrowhead to show the direction of the trav- 
ersal on that line. The direction of traversal on the vertical lines can be deduced 
by looking at the horizontal lines to which it connects. Dashed lines (i.e. '----') 
indicate constructs which are unique to Pascal/VS and are not found in standard 
Pascal. 


Identifiers may be classified according to how they are declared. For the sake of 
clarity, a reference in the syntax diagram for {id} is further specified with a one 
or two word description indicating how the identifier was declared. The form of the 
reference is '{id:description}!. For example fid:type} references an identifier 
declared as a type; fid: function} references an identifier declared as a function 
name. 


REVISION CODES 
The convention used in this document is that all changes in the current version from 
the previous edition are flagged with a vertical bar in the left margin. 


Extensions to Pascal are marked with a plus sign in the margin. 
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SUMMARY OF AMENDMENTS 


RELEASE 2.1 


The following is a list of the functional changes that were made to Pascal/VS for 
Release 2.1. 


e 


A procedure (Cor function) at any nesting level may now be passed as a routine 
parameter. The previous restriction which required such procedures to be at the 
outermost nesting level of a module has been removed. 

Two new options may be applied to files when they are opened: UCASE and NOCC. 
Rules have been relaxed in passing fields of packed records by var to a routine. 


The "STACK" and “"HEAP™ run time options have been added to control the amount at 
which the stack and heap are extended when an overflow occurs. 


The syntax of a "structured constant" which contains non-simple constituents has 
been simplified. 


RELEASE 2.0 


The following is a list of the functional changes that were made to Pascal/VS for 
Release 2.0. 


Pascal/VS now supports single precision floating point (32 bit) as well as dou- 
ble precision floating point (64 bit). 


Files may be opened for updating with the UPDATE procedure. 

Files may be opened for terminal input (TERMIN) and terminal output (TERMOUT) so 
that I/0 may take place directly to the user's terminal without going through 
the DDNAME interface. 


The MAIN directive permits you to define a procedure that may be invoked froma 
non-Pascal environment. A procedure that uses this directive is not reentrant. 


The REENTRANT directive permits you to define a procedure that may be invoked 
from a non-Pascal environment. A procedure that uses this directive is reen- 
trant. 

A new predefined type, STRINGPTR, has been added that permits you to allocate 
strings with the NEW procedure whose maximum size is not defined until the invo- 
cation of NEW. 

A new parameter passing mechanism is provided that allows strings to be passed 
into a procedure or function without requiring you to specify the maximum size 
of the string on the formal parameter. 

The maximum size of a string has been increased to 32767 characters. 

The Pascal/VS compiler is now fully reentrant. 


eta produced from the compiler will be reentrant if static storage is not modi- 
fied. 


Pascal/VS programs may contain source lines up to 100 characters in length. 
Files may be accessed based on relative record number (random access). 

Run time errors may be intercepted by the user's program. 

Run time diagnostics have been improved. 


Pascal/VS will flag extensions when the option "LANGLVL(STD)" is used. 


Summary of Amendments Vv 


TNL SN20-4446 (31 December 81) to SH20-6168-1 


vi 


A mechanism has been provided so that Pascal/VS routines may be called from oth- 
er languages. 


All record formats acceptable to QSAM are now supported by the Pascal/VS I/0 
facilities. 


A procedure or function may now be exited by means of the goto statement. 
You may now declare an array variable where each element of the array is a file. 
You may define a file to be a field of a record structure. 


Files may now be allocated in the heap (as a dynamic variable) and accessed via a 
pointer. 


You may now define a subrange of INTEGER which is allocated to 3 bytes of 
storage. Control over signed or unsigned values is determined by the subrange. 


Variables may be declared in the outermost scope of a SEGMENT. These variables 
are defined to overlay the variables in the outermost scope of the main program. 


The PDSIN procedure opens a member of a library file (partitioned dataset) for 
input. 


The PDSOUT procedure opens a member of a library file (partitioned dataset) for 
output. 


A procedure or function that is declared as EXTERNAL may have its body defined 
later on in the same module. Such a routine becomes an entry point. 


The CPAGE percent(%)} statement conditionally does a page eject if less than a 
specified number of lines remain on the current listing page. 


The MAXLENGTH function returns the maximum length that a string variable can 
assume. 


The *CHECK TRUNCATE option enables (Cor disables) the checking for truncation of 
strings. 


The PASCALVS exec for invoking the compiler under CMS has been modified so that 
the specification of the operands allows greater flexability. 


New compiler options have been added, namely: LINECOUNT, PXREF, PAGEWIDTH, and 
LANGLVL. 


The catalogued procedures for invoking Pascal/VS in OS Batch have been simpli- 
fied. 


The format of the output listing has been modified so that longer source lines 
may be accomodated. 


Multiple debugger commands may be entered on single line by using a semicolon 
(;) as a separator. 


The format of the Pascal File Control Block has been modified. 
Support is now provided for ANSI and machine control characters on output files. 


Execution of a Pascal/VS program will terminate after a user determined number 
of non-fatal run time errors. 


The debugger now supports breakpoints at the end of a procedure or function. 


The Trace mode in the debugger provides information on when procedures are being 
exited. 


The TRACE procedure now permits you to specify the file on which the traceback 
is to be written. 


The Equate command of the debugger has been enhanced. 


The debugger will print “uninitialized" when displaying a variable that has not 
been assigned. 
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1.0 INTRODUCTION TO PASCAL/VS 


"The language Pascal was designed by e It provides constructs for defining 
Professor Niklaus Wirth to satisfy two data structures in a clear manner. 
principal aims: 

© It is suitable for applying struc- 


e to make available a language suit- tured programming techniques. 
able for teaching programming as a 
systematic discipline based on cer- ° The language is relatively 
tain fundamental concepts clearly machine-independent. 
and naturally reflected by the lan- 
guage. e Its syntax and semantics) allow 
extensive error diagnostics during 
e to define a language whose implemen- compilation. 
tations could be both reliable and 
efficient on then available comput- ° A program written in the language 
ers." can have extensive execution time 
checks. 


(Pascal Draft Proposal ISO/TC 97/SC 5 

N595, January, 1981) ) Its semantics allow efficient 
object code to be generated. 

Pascal/VS is an extension to standard 


Pascal. The purpose of extending Pascal ° Its syntax allows relatively easy 
is to facilitate application program- compilation. 

ming requirements. Among the extensions 

are such features as separately compil- e The language is relatively well 
able external routines, internal and known and is growWing in popularity. 


external static data, and varying length 
character strings. 


Pascal is of interest as a high level 
programming language for the following 
reasons: 

1.1 PASCAL LANGUAGE SUMMARY 


This section of the manual is meant to be a capsule summary of Pascal/VS. It should 
serve as a brief outline to the language. The details are explained in the remainder 
of this document. 


1.1.1 Syntax 


The syntax is described with an example-like format that summarizes the important 
features of the item. The following rules are the conventions used. 


eee indicates that the item preceding this symbol may be repeated an 
arbitrary number of times. 

tl encloses items which are optional. 

c J denote the standard square brackets of Pascal. 


item-comma-list indicates that the item may be repeated, separating each occurrence 
with a comma. 


digit-list refers to a sequence of one or more digits C™0". ."9"), 

binary-digits refers to a sequence of one or more binary digits ("0" or "1"™). 

hex-digits refers to a sequence of one or more hexadecimal digits ("0".."9" or 
At . EW) . 

id refers to an identifier. 

label refers to either an identifier or an integer number in the range 
0..9999. 

directive refers to any one of: FORWARD, EXTERNAL, FORTRAN, MAIN, or 
REENTRANT. 
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field-list 


1.1.2 Modules 


program 


SEGMENT 


refers to the list of fields that compose the body of a record data 
type. 


jis a self-contained and independently executable unit of code. 


program id £ € id-comma-list ) ] ; 
declaration... 
compound-statement 


is a shell in which procedures and functions may be separately com- 
piled. 


SEGMENT id ; 
declaration... 


1.1.3 Declarations 


label 


const 


type 


var 


def 


ref 


static 


value 


is used to declare a label in a program, procedure or function. 


label 
label-comma-list ; 


declares an identifier that becomes synonymous with a compile time 
computable value. 


const 
id = constant-expression ; 
£ id = constant-expression ; ].. 


declares an identifier which is a user-defined data type. 


type 
id = data-type ; 
{ id = data-type ; J 


declares a local variable. 


var 
id-comma-list : data-type ; 
£ id-comma-list : data-type ; 1... 


declares a variable which is defined in one module and may be refer- 
enced in other modules. 


def 
id-comma-list =: data-type ; 
L id-comma-list : data-type ; J]... 


declares a variable which is defined in another module. 


ref 
id-comma-list : data-type ; 
£ id-comma-list : data-type ; J... 


declares a variable which persists for the entire execution of the 
program. 


static 
id-comma-list = data-type ; 
£ id-comma-list : data-type ; J]... 


assigns a value to a def or Static variable at compile time. 
value 


variable 
{f variable 


constant-assignment-statement ; 
constant-assignment-statement ; J]... 
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procedure defines a unit of a module which may be invoked as a statement. 


procedure id [ ( parameter [; parameter]... ) 1] ; 
directive ; 


or 
procedure id £ € parameter [; parameter]... ) 1 ; 
declaration... 
compound-statement ; 
function defines a unit of a module which may be invoked and returns a value. 


function id [ € parameter [; parameter]... ) 1] :? id 3 
directive ; 


or 
function id £ € parameter [; parameter]... ) 1 : id 3 


declaration... 
compound-statement ; 


1.1.4 Data-Types 


id is an identifier that was previously declared as a type. 
enumeration is a list of constants of a user-defined scalar data type. 
€ id-comma-list ) 
subrange is a continuous range of a scalar type. 
tL packed J constant .. constant-expression 
array is a data structure composed of a list of homogeneous elements. 
t packed 1] array [€ data-type J] of data-type 
record is a data structure composed of a list of heterogeneous fields. 
t packed J] record 
{ id-comma-list : data-type ; J... 


Ct case Lid :] id of 
constant-comma-list : (€ field-list ) ; 


end constant-comma-list : ( field-list ) 3; J...]1 
set is a collection of zero or more scalar values. 
Ct packed 1 set of data-type 
file is a sequence of data to be read or written by a Pascal program. 
file of data-type 
pointer is a reference to a variable that is created by the programmer. 
a id 
1.1.5 Parameters 
value designates a pass-by-value parameter. 
id-comma-list = id 
var designates a pass-by-reference (read/write) parameter. 


var id-comma-list : id 
const designates a pass-by-reference (read-only) parameter. 


const id-comma-list : id 
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procedure 


function 


is the mechanism whereby a procedure may be passed to the called 
procedure (function) and executed from there. 
procedure id £ ( parameter [; parameter]... ) 1 ; 


is the mechanism whereby a function may be passed to the called pro- 
cedure (function) and executed from there. 


function id E ( parameter [E; parameter]... ) 1: id ; 


1.1.6 Statements 


Every statement may be preceded with one label: 


UC label: J] statement 


assert 


assignment 


case 


compound 


continue 


empty 


for 


goto 


leave 


tests a condition that should be true and if not causes a runtime 
error to be produced. 


assert bool-expression 
assigns a value to a variable. 
variable := expression 


causes any one of a list of statements to be executed based upon the 
value of an expression. 


case expression of 
EL constant-comma-list : statement ; J... 
C otherwise 
statement [E ; statement J]... J] 
end 


is a series of statements enclosed within begin/end brackets. 

begin 

statement [ ; statement J]... 

end 
resumes execution of the next iteration of the innermost loop. The 
termination condition is tested to determine if the loop should con- 
tinue. 

continue 
contains no executable code. 


is a loop statement that modifies a control variable for each iter- 
ation of the loop. 


expression to expression do 


for variable 
statement 

or 

for variable 
statement 


expression donnto expression do 


changes the flow of your program. 
goto label 


causes one of two statements to be executed based on the evaluation 
of an expression. 


if bool-expression then 
statement 

t else 
statement J 


terminates the execution of the innermost loop. Execution resumes 
as if the loop termination condition were true. 
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C 


call 


repeat 


return 


while 


with 


leave 


invokes a procedure. At the conclusion of the procedure, execution 
continues at the next statement. 


id £ € expression-comma-list ) 1 


is a loop statement with the termination test occurring at the end 
of the loop. 


repeat 
statement [ ; statement J... 
until bool-expression 


terminates the executing procedure (function) and returns control 
to the caller. 


return 


is a loop statement with the termination test occurring at the 
beginning of the loop. 


while bool-expression do 
statement 


permits complicated references to fields within a record to be 
treated as simple variables within a a statement. 


with variable-comma-list do 
statement 


1.1.7 Expressions 


An expression 


is composed of operands combined with operators. The operators have 


the following precedence: 


1.1.8 Operands 


variable 


constant 


not operator Chighest) 
multiplying operators 

adding operators 

relational operators (lowest) 


represents a unit of storage which may be referenced and altered. 


simple variable: id 

array: variable [ expression ] 
field: variable . id 

pointer: variable 2 


represents a literal value. 


INTEGER digit-list 
* hex-digits °'X 
' binary-digits 'B 


REAL digit-list . digit-list EE+t/- digit-list] 
. hex-digits 'XR 
BOOLEAN FALSE/TRUE 
CHAR EBCDIC character in single quotes 
string EBCDIC characters in single quotes 
" hex-digits 'XC 
array id € expression [: expression] 
{ , expression [: expression] J]... 
record id € expression [, expressionl... ) 


set-constructor refers to an operand that describes the values of a set. 


C expression [ .. expression ] 
t ,. expression [ .. expression ] J]... ] 
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function-call refers to the invocation of a function. 
id [ € expression-comma-list ) ] 
parenthesized-expression is used to override the normal precedence of operators. 


( expression ) 


1.1.9 Special Symbols 


a 


addition and set union operator 

subtraction and set difference operator 

multiplication and set intersection operator 

division operator, REAL results only 

BOOLEAN not, one's complement on INTEGER 

or set complement 

BOGLEAN or, logical or on INTEGER 

BOOLEAN and, logical and on INTEGER 

BOGLEAN xor operator, logical xor on INTEGER 
and set exclusive union 

equality operator 

less than operator 

less than or equal operator 

greater than or equal operator 

greater than operator 

not equal operator 

right logical shift on INTEGER 

left logical shift on INTEGER 

catenation operator 

assignment symbol 

period to end a module 

field separator in a record 

comma, used as a list separator 

colon, used to specify a definition 

semicolon, used a5 a statement separator 

subrange notation 

quote, used to begin and end string constants 

pointer symbol 

left parenthesis 

right parenthesis 

left square bracket 

right square bracket 

comment left brace (standard) 

comment right brace (standard) 

comment left brace (alternate form) 

comment right brace Calternate form) 


wee 


KNW] Ker AQ as 


1.1.10 Identifiers 


Identifiers are composed of the letters "a" through "2", the digits "0" through "9" 
and the special characters "_" and "$". An identifier must begin with a letter or 
"S" and must be unique in the first 16 positions. There is no distinction between 
the an upper case letter and its lower case equivalent. 


6 Pascal/VS Reference Manual = : as a- 


J 


Cc 


1.1.11 The Not Operator 


boolean not 


logical one's 
complement 
complement 


BOOLEAN 
INTEGER 


set of T 


BOOLEAN 
INTEGER 


set of T 


1.1.12 Multiplying Operators 


div 
mod 
& Cand) 
& Cand) 


% 
|| 
<< 


>> 


multiplication 


real division 


integer division 

modulo 

boolean and 

logical and 

set intersection 

string catenation 

logical left shift 

logical right 
shift 


1.1.13 Adding Operators 


| cor) 
| Cor) 


&& (Cxor) 
&& (xor) 
&& Cxor) 


addition 


set union 
subtraction 


set difference 
boolean or 
logical or 
boolean xor 
logical xor 
exclusive union 


INTEGER 
SHORTREAL 
REAL 
mixed 
INTEGER 
SHORTREAL 
REAL 
mixed 
INTEGER 
INTEGER 
BOOLEAN 
INTEGER 
set of ¢ 
STRING 
INTEGER 
INTEGER 


operator operation operands 


INTEGER 
SHORTREAL 
REAL 
mixed 

set of ¢ 
INTEGER 
SHORTREAL 
REAL 
mixed 
seat of t 
BOOLEAN 
INTEGER 
BOOLEAN 
INTEGER 
set of ¢ 


INTEGER 
SHORTREAL 
REAL 

REAL 

REAL 
SHORTREAL 
REAL 

REAL 
INTEGER 
INTEGER 
BOOLEAN 
INTEGER 
set of t 
STRING 
INTEGER 
INTEGER 


result 


INTEGER 
SHORTREAL 
REAL 

REAL 

seat of t 
INTEGER 
SHORTREAL 
REAL 
REAL 

set of t 
BOOLEAN 
INTEGER 
BOOLEAN 
INTEGER 
sat of t 
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1.1.14 Relational Operators 


compare equal any set, scalar, pointer BOOLEAN 
or string 

not equal any set, scalar, pointer BOOLEAN 
or string 


less than scalar type or string BOOLEAN 
compare < or = scalar type or string BOOLEAN 
subset set of t BOOLEAN 
compare greater scalar type or string BOOLEAN 
compare > or = scalar type or string BOOLEAN 
superset set of +t BOOLEAN 


set membership t and set of t BOOLEAN 


1.1.15 Reserved Words 


and end of 

array file or . 
assert for otherwise 
begin function packed 
case goto procedure 
const if program 


continue in range 
label record 
leave ref 
mod repeat 
nil return 
not set 


1.1.16 Predefined Constants 


ALFALEN length of type ALFA, value is 8 

ALPHALEN length of type ALPHA, value is 16 

FALSE constant of type BOOLEAN, FALSE < TRUE 
MAXINT maximum value of type INTEGER: 2147483647 
MININT minimum value of type INTEGER: -2147483648 
TRUE constant of type BOOLEAN, TRUE > FALSE 


1.1.17 Predefined Types 


ALFA packed array[ 1..ALFALEN J] of CHAR 

ALPHA packed arrayl[ 1..ALPHALEN ] of CHAR 

BOOLEAN data type composed of the values FALSE and TRUE 
CHAR character data type 

INTEGER integer data type 

REAL floating point represented in a 64 bit value 
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SHORTREAL floating point represented ina 32 bit value 


STRINGPTR is a predefined type that points to a STRING whose maximum length is 
determined when the STRING is allocated with NEW 
TEXT file of CHAR 


1.1.18 Predefined Variables 
INPUT default input file 
QUT PUT default output file 
1.1.19 Predefined Functions 


The following symbols represent parameters in the descriptions 
of the predefined functions and procedures. 


a = an array variable 

f = a file variable 

n = a positive integer expression 

p = pointer valued variable 

5s = a string expression 

v = a variable 

x = any arthimetic expression 
ABS(x} computes the absolute value "x" 
ARCTAN(X) returns the arctangent of "x" 
CHR(n) returns the EBCDIC character whose ordinal value is "n" 
CLOCK returns the number of micro-seconds of execution 
COLS(f) returns current column of file "f" 
COMPRESS(s) replaces multiple blanks in "s" with one blank 
cos(x} returns the cosine of "x" 


DELETE(S,n1l,n2) returns "s" with characters "nl" through "n2" removed 


EOF (f) tests file "f" for end-of-file condition 

EOLN( f) tests file "f" for end-of-line condition 

EXP(x) computes the base of the natural log (e) raised to to the power "x" 
FLOAT(n) converts "n" to a floating point value 


HBOUND(al,n]} determines the upper bound of array "a" 
HIGHEST(x) determines the maximum value the type of a scalar "x" 
INDEX(s1,862) returns the location, if present, of "52" in "51" 


LBOUND(al,n]) determines the lower bound of array "a" 


LENGTH(S) determines the current length of string "s" 

LN(x) returns the natural logarithm of the "x" 

LOWEST(x) determines the minimum value the type of a scalar "x" 
LTRIM(s) returns "5s" with leading blanks removed 

MAX(xt,xJ...) determines the maximum value of a list of scalar expressions 
MAXLENGTH(s) determines the maximum length of string "s" 
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MIN(xf,x]...) 


ODD(n) 
ORD(x) 
PARMS 
PRED(x) 
RANDOM(n) 
ROUND(x) 
SIN(x) 
SIZEOF(x) 
SQRT(x) 
SQR(x) 
STR(a) 


SUBSTR(s,n1,n2) 


succ(x) 


TRIM(s) 


TRUNC( Xx) 


1.1.20 


CLOSE(f) 


DATETINE(al,a2) 


DISPOSE(p) 
GET(f) 
HALT 
HARK(p) 


NEW(p,I,x]...) 


PACK(al,x,a2) 
PAGEL (f)1 
PDSIN(f,S) 


PDSOUT(f,s) 


PUT (fF) 


determines the minimum value of a list of scalar expressions 
returns TRUE if integer "n" is odd 

converts a scalar value "x" to an integer 

returns the system dependent invocation parameters 

obtains the predecessor of scalar expression "x" 

returns a pseudo-random number, "nn" is the seed value or zero 
converts a floating point value to an integer value by rounding 
returns the sine of "x" 

determines the memory size of a variable or type 

returns the square root of "x" 

returns the square of "x" 

converts array of characters "a" to a string 

returns the substring of "5s" from "nl" to "n2" 

obtains the successor of scalar "x" 

returns "5s" with trailing blanks removed 


converts floating point expression "x" to an integer by truncating 


Predefined Procedures 


closes a file 

returns the current date in "al" and time of day in "a2" 
deallocates a dynamic variable 

advances file pointer to the next element of input file "f" 
halts the programs execution 

creates a new heap, "p" designates the heap 

allocates a dynamic variable from the most recent heap 
copies array "al" starting at index "n"” to packed array "a2" 
skips to the top of the next page 


opens file "f" for input, "s"™ designates the open options which must 
specify the member name 


opens file "f" for output, "s" designates the open options which 
must specify the member name 


advances the file pointer to the next element of output file "f" 


READ([f,]vi,vjJ...) reads data from file "f" into variable "v" 


READLN(If,Jvi,vl...) reads variable "v"™ and then skips to end-of-line of TEXT file 


Wey 


READSTR(s,vI,vJ...) reads data from string "s" into variable "v" 


RELEASE(p) 


RESET(fI,s]) 
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destroys one or 
destroyed 


more heaps, “p"™ designates the last heap to be 


opens file "f" for input, “"s" designates the optional open options 


RETCODE(n) 
REWRITE(fLI,51) 
SEEK(f,n) 


TERMIN(fE,S)) 


TERMOUT(fE,s51) 


TOKEN(S,Vv) 
TRACE( f ) 

UNPACK (al,a2,n) 
UPDATE(fI,$]) 
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sets the system return code 

opens file "f" for output, "s" designates the optional open options 
modifies the current position of file "f' so that next GET Cor PUT) 
reads Cor writes) record number "n™, where record 1 is the first 
record of the file 


opens file "f"for input from the users terminal, "s" designates the 
optional open options 


opens file "f"for output from the users terminal, "s" designates the 
optional open options 


extracts tokens from string "s" updating starting position "v" 
writes the procedure and function invocation history to file "" 
copies packed array "al" to array "a2" beginning at index "n" 

opens file "f" for update, a PUT immediately following a GET of a 


record of the file replaces that record, "s" designates the optional 
open options 


WRITECIf,Ix0,x]1...)] writes the value of "x" to file "Ff" 


WRITELN(Cf,IxI,xJ...) writes the value of "x" and then writes an end-of-line to TEXT 


file "#" 


WRITESTR(S,xl»xJ...) writes the value of "x" to string "s" 


1.1.21 % Include Statuments 


%CHECK 
%CPAGE n 


%INCLUDE 
%LIST ON/OFF 
%MARGINS nm 


%PAGE 

%PRINT ON/OFF 
“SKIP n 
“TITLE 


enables or disables execution time checking features. 


skips to the next page if less than "n" lines remain on the current 
page 


includes source code froma library. 
enables or disables the pseudo-assembler listing. 


resets the left margin of the source program to "n"® and the right 
margin to "m", 


forces the source listing to start on a new page. 
enables or disables the source listing. 
inserts "n"™ blank lines into the source listing. 


specifies a title for the listing. 
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-) IDENTIFIERS 


>{digit} 


2.0 THE BASE VOCABULARY 


—-> {letter} > {letter)———> | —> 
--->{underscore}-~-> 


where: 
{letter} is 'A', 
{digit} is '"O', 
underscore is ' 


Identifiers are names given to vari- 
ables, data types, procedures, func-— 
tions, named constants and modules. 


correct: incorrect: 
I 5K 
K9 NEW JERSEY 
New_York 
AMOUNT$ 


Valid and Invalid Identifiers 


Pascal/VS permits identifiers of up to 
16 characters in length. You may use 
longer names but Pascal/VS will ignore 
the portion of the name longer than 16 
characters. You must assure identifiers 
are unique within the first 16 
positions. 


There is no distinction between lower 
and upper case letters within an identi- 
fier name. For example, the names 
"ALPHA', ‘alpha’, and ‘Alpha’ are equiv- 
alent. 


There is an implementation restrictions 
on the naming of external variables and 


external routines. You must make sure 
that identifiers used as external names 
are unique in the first 8 characters. 


2.2 LEXICAL SCOPE OF IDENTIFIERS 


The area of the module where a partic~— 
ular identifier can be referenced is 
called the lexical scope of the identi- 
fier (Cor simply scope). 


In general, scopes are dependent on the 
structure of routine declarations. 
Since routines may be nested within oth- 
er routines, a lexical level is associ- 
ated with each routine. In addition, 
record definitions define ae lexical 
scope for the fields of the record. 
Within a lexical level, each identifier 
can be defined only once. A program 
module is at level 0, routines defined 
within the module are at level 1; in 
general, a routine defined in level i 
would be at level (itl). The following 
diagram illustrates a nesting 
structure. 
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program M Clevel 0) 
procedure A (level 1) 
procedure B (level 2) 


type 
record 
Rli... 
R2:... 
end; 


function Cc 
Clevel 3) 


procedure D (level 2) 


function X (level 1) 


procedure Y (level 2) 
procedure Z (level 2) 


The scope of an identifier is the entire 
routine Cor module) in which it was 
declared; this includes all routines 
defined within the routine. The follow- 
ing table references the preceding dia- 
gram. 
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identifiers 


declared in: are accessible in: 


Module M 
procedure A 
procedure B 
type R 
function Cc 
procedure D 
function X 
procedure Y 
procedure Z 


N<KOOWOUPSA 


If an identifier is declared in a rou- 
tine which is nested in the scope of 
another identifier with the same name, 
then the new identifier will be the one 
recognized when its name appears in the 
routine, The first identifier becomes 
inaccessible in the routine. In other 
words, the identifier declared at the 
inner most level is the one accessible. 


The scope of a field identifier defined 
within a record definition is limited to 
the record itself. The scope of a 
record may be accessed by either field 
referencing (see "Field Referencing” on 
page 68) or with the with-statement (see 
"The With Statement” on page 100). 


The Pascal/VS compiler effectively 
inserts a prelude of declarations at the 
beginning of every module it compiles. 
These declarations consist of the prede- 
fined types, constants, and routines. 
The scope of the prelude encompasses the 
entire module. You may re-~declare any 
identifier that is predefined if you 
would like to use the name for another 
purpose. 


2.3 RESERVED WORDS 


Reserved Words 


and end 
array file 

+ assert for 
begin function 
case goto 
const if 

+ continue in 

+ def label 
div + leave 
do rod 
downto nil 
else not 


Pascal/VS reserves the identifiers 
shown above for expressing the syntax of 
the language. These reserved words may 
never be declared by you. Reserved 
words must be separated from other 
reserved words and identifiers by a spe- 


note: those words marked by '+*" are not reserved in standard Pascal 


of + space 
or + static 
otherwise then 
packed to 
procedure type 
program until 
ranges + value 
record var 
ref while 
repeat with 
return + xor 
set 


cial symbol, a comment, or at least one 
blank. 


A lower case letter is treated as equiv- 
alent to the corresponding upper case 
letter ina reserved word. 
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++ 


2.4 SPECIAL SYMBOLS 


Special Symbols 


addition and set union operator 

subtraction and set difference operator 
multiplication and set intersection operator 
division operator, REAL result only 


BOOLEAN not, one's complement on INTEGER or set complement 
BOOLEAN or, logical or on INTEGER 

BOOLEAN and, logical and on INTEGER 

BOOLEAN xor operator, logical xor on INTEGER 

and set exclusive union 


equality operator 

less than operator 

less than or equal operator 
greater than or equal operator 
greater than operator 

not equal operator 


AVVYVAATI 
b oit 


right logical shift on INTEGER 
left logical shift on INTEGER 
catenation operator 


assignment symbol 

period to end a module 

field separator in a record 
comma, used as a list separator 


colon, used to specify a definition 
semicolon, used as a statement separator 
subrange notation 

quote, used to begin and end string constants 
pointer symbol 


left parenthesis 
right parenthesis 
left square bracket 
right square bracket 


comment left brace (standard) 
comment right brace (standard) 
comment left brace Calternate form) 
comment right brace Calternate form) 


Symbol Reserved Word 
Special symbols used by Pascal/VS are = not 
listed above. Several special symbols | or 
may also be written as a reserved word. & and 
These symbols are shown in the following && xor 


table. 
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2.5 COMMENTS 


Pascal/VS supports two forms of 
comments: '{ ... }* and "7#...*7". The 
curved braces are the standard comment 
symbol in Pascal. The symbols '(*" and 
"*)" are considered by the compiler to 
jdentical to left and right braces. The 
form of comment using '/*' and '*/' is 
considered to be distinct from the form 
using braces. 


When the compiler encounters the symbol 
"{', it will bypass all characters, 
including end-of-line, until the symbol 
"}y' is encountered. Likewise, all 
characters following "7%" will be 
bypassed until the symbol '*/' is detec- 
ted. As a result, either form may be 
used to enclose the other; for example 
7¥%...0...3...¥47 15 one comment. One use 
of these two forms of comments is to use 


one for ordinary comments and use the 
other to block out temporary sections of 
code: a '/*...*/"' comment could be used 
to indicate a temporary piece of code, 
or perhaps debugging statements. 


A comment may be placed anywhere in a 


module where a blank would be 
acceptable. 
7¥ 


if A = 10 then { this statement is 
for program 
debugging } 
WRITEC'A IS EQUAL TO TEN'); 
*%/ 


Example of a nested Comment 
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t+ett 


2. 


6 CONSTANTS 


unsigned-integer: 


>{digit} 
| Le 


--=-> !' ---7+--->fhex-dijigit}-ccote--> %'XR wm n nnn --- eee eK 
2 eee igi 
< 
< 
< 
> + —> < 
2 Se = 


unsigned-number: 


>f{unsigned-i nteger 
Se peal nenber == 


> - > > 
| < {character}< | 


Panes oe pore ene eal neg ee = 


unsigned-constant: 


>{unsigned-number} > 
> (string}———_—_——_—__> 
>Cid: constant} > 
> nil —————————_> 
constant: 
>{unsigned-constant}— > 
——s . — a eunsnenec number! > 
where: 


{binary-digit} is "O" or '1!*, 

{digit} is '0' through '9'; 

{hex-digit} is '0' through °9" and 'A® through 'F'; 
{character} is any EBCDIC character. 


Constants can be divided into several If a single quote is to be used within a 
categories according to the predefined string, then the quote must be written 
type to which they belong. An unsigned twice. Lower case and upper cise let~ 
number will conform to either a REAL or ters are distinct within string con- 
an INTEGER. Strings will conform to the stants. String literals are 

type STRING or packed arrayll..nl] of permitted to extend past the end of line 
CHAR. In addition, if the string is one of a source line. Longer strings can be 
character in length, it will conform to formed by catenating shorter strings. 
the type CHAR. 
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Nil is of a special type which will con- 
form to any pointer type. It represents 
a unique pointer value which is not a 
valid address. 


The constants TRUE and FALSE are prede- 
fined in the language and are of the 
standard type BOOLEAN. 


Integer hexadecimal 


constants are 
enclosed in quotes and suffixed with an 
"X' or xt, Integer binary constants 
are enclosed in quotes and suffixed with 
a 'B' or 'b!', 


Hexadecimal constants may be used in any 
context where an integer constant is 
appropriate. If you do not specify 8 
hexadecimal digits (i.e. 4 bytes), Pas- 
cal/VS assumes that the digits not sup- 


plied are zeros on the left. For 
example, 'F'x is the value 15. 
Floating point hexadecimal constants 


are enclosed in quotes and suffixed with 
an 'XR' or 'xr'. Such constants may be 
used in any context where a real con- 
stant is appropriate. If you do not 
specify 16 hexadecimal digits (i.e. 8 
bytes), Pascal/VS assumes that the dig- 
its not supplied are zeros on the right. 
For example, '4110'xr is the same as 
"411000000000000'xr. 

String hexadecimal constants are 
enclosed in quotes and suffixed with an 
"XxC* or ‘xe’. Such constants may be 
used in any context where a string con- 
stant is appropriate. There must be an 


t+ett 


++eteeeet 
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even number of digits within a hexadeci- 
mal string constant; that is, you must 
specify each character fully that is to 
be in the string. 


The symbol 'E' or ‘'e' when used in a 
real-number expresses 'ten to the power 
of’, 


Pascal/VS permits constant expressions 
in places where the Pascal standard only 


permits constants. Constant expres- 
sions are evaluated and replaced by a 
single result at compile time. See 


"Constant Expressions” on page 76 for a 
description of constant expressions. 


constant matches standard type 


0 INTEGER 
-500 INTEGER 
1.0 REAL 
314159E-5 REAL 
0E0 REAL 
1.0E10 REAL 
TRUE BOOLEAN 
'FF'X INTEGER 
YA? CHAR 
‘ABC’ STRING 
*C1C2C2' xc STRING 
"GE800000FFFFFFFF'xr REAL 
‘abc! STRING 
a STRING 
rere CHAR 
ry CHAR 
ro!’ STRING 


'Thats''s all ' STRING 


Examples of Constants 
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SHE HHEEEHEEEE HEHEHE HEHEHE 


1 If the tag field 
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2.7 STRUCTURED CONSTANTS 


structured-constant: 


~o~[7 77? trecord-structure}——-7 Bee Sposa aaa ses Sean SSeS asso a ess sees ssss SS > 


--->f{array-~structure}---> 


record-structure: 


array-structure: 


--->fid:type}---> ¢ 


es 


repetition: 
-~->{constant-—expr} 


note: must evaluate to positive 


Structured constants are constants 
which are of a_ structured type. The. 
type of the constant is determined by 


the type identifier which is used in its 
definition. These constants may be used 
in constant declarations, value decla- 
rations or in executable statements. 


There are two kinds of structured con- 
stants: one is used for arrays and the 
second is used to specify records. 


Array constants are specified by a list 
of constant expressions where-~ each 
expression defines one element of the 
array. See "Constant Expressions™ on 
page 76 for a description 
of constant expressions. You may omit 
an element of the array within the list 
in which case the value of that element 
is not defined. Elements may be omitted 
at the end of the array in which case 
the value of those elements are also not 
defined. You may follow the constant 
expression With a colon and a repetition 
expression; this is used to specify that 
the first constant expression is to be 
repeated. 


eee ee Te) 


integer. 


+++ 


The second kind of structured constant 
is used to specify records. Record con- 
stants are specified by a list of con- 
stant expressions where each expression 
defines one field of the record in the 
order declared. You may omit a field of 
the record within the list by specifying 


nothing between two commas, in which 
case the value of that field is not 
defined. 


Values within the list may correspond to 
fields of a re¢ord's variant part. In 
order for the compiler to know which 
variant is being referenced, the tag 
field value must be specified immediate- 
ly prior to those values which are to be 
assigned to the variant fields. (See the 
examples below.) The tag field must be 
specified even if it does not exist asa 
field. (This occurs when only a tag type 
is specified. )? 


The type identifier that begins a struc-— 
tured constant may be omitted if the 
structured constant is imbedded within 
another structured constant. This sim- 
plifies the syntax for structured con- 
stants which are multidimensional 


isa “refer-back” type (see "Variant Part" on page 45) then 
it will need to be specified twice in the list: 


once to be assigned a value, 


and again to identify the variant being referenced. 
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+etet tet eteeete 


++ e+ 


+++ 


arrays or records with structured 
fields. 
type 
COMPLEX = record 
RE,IM: REAL 
end; 
VECTOR = arrayli..7] of INTEGER; 
CARRAY = arrayl0..9] of COMPLEX; 
TETRA = arrayl[1..3,1..2,1..4] 
of INTEGER; 
const 
{ Structured Constants } 
THREEFOUR = COMPLEX(3.0,4.0)3 
VECTOR_1 = VECTORC7,0:5,1); 
VECTOR_2 = VECTOR(2,3,,4); 
ZEROTETRA = 
TETRAC 
C €0°4):2 ), 
C €0:4),00°:4) ), 
€ €0,0,0,0),¢60,0,0,0) ) D5 


{the following two declarations 
are equivalent 


VECTOR_3 = CARRAYC 
COMPLEX(1.0,0.0), 
COMPLEX(1.0,1.0):8, 
COMPLEX(0.0,1.0)); 

VECTOR_& = CARRAYC 


Examples of Structured Constants 
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type 
FORM = CFCHAR,FINTEGER,FREAL, 
FSTRING); 
KONST = 
record 
SIZE: INTEGER; 
case F: FORM of 
FCHAR: CC: 
FINTEGER: CI: INTEGER); 
FREAL: CR: REAL); 
FSTRING: (¢ 
case BOOLEAN of 


TRUE: ¢ 
LEN: packed 0..32767; 
A =: ALPHA); 

FALSE: (S: STRINGC16)); 


CHAR); 


= KONST(1,FCHAR,'A'); 
PI = KONST(8,FREAL,3.14159); 
BLANK = 
KONST(1,FSTRING, FALSE," '); 
ARS = 


KONST(4,FSTRING, TRUE, 4, ' XXX"); 


Structured constants with 
variant record fields 


The Base Vocabulary 


20.1 
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+eeete 


HEE Hee Het 4+——+ tee ee e—te 


modula: 


3.0 STRUCTURE OF A MODULE 


To? {program—modu Le }—— 
---> {segment-module}-~--> 


program-module: 
—> program —> {id} 


< 


| 
> > 


{declaration} 
>{compound-statement }——> 
declaration: 
>{label-dcel} 
>{constant-dcl} 


>{type-dcl} 


--->{static-del} 


Po veneeree 
>{routine-del} 


segment~module: 


---> SEGMENT --->{id}---> ; aa 


i wooo == =~ 


--->{constant-del}-~---> 


---- 


[-77? ftyperdel} 
[-77? fvarndeld 
[-~7? (defo der} 
[77 fstatiordel) 
| 

| 


--->{value-del} 


bb 1 


--->{routine-dcel} 


---> 


A module 
unit of 


is an 
code. 


independently compilable 
There are two types of 


modules in Pascal/VS: the program module 


and the segment module. 


The program is the module which gains 
initial control when the compiled pro- 
gram 1s invoked from the system loader. 
It is effectively a procedure that the 
loader invokes. The body of a program 


Structure of a Module 2i 


ete tee tee et 


module is identical to the body of a 


procedure. 


A segment module may be compiled as a 
unit independent of the program module. 
It consists of routines that are to be 
linked into the final program prior to 
execution. Data is passed to routines 
through parameters and external vari- 
ables. Segments are useful in breaking 
up large Pascal/VS programs into smaller 
units. 


The global automatic variables of the 
program module may be accessed ina seg- 
ment module. See "The Var Declaration" 
on page 26 for an explanation. 


The identifier following the reserved 
word “program” must be a unique external 
name. The identifier following the word 
"SEGMENT" may be the same as one of the 
EXTERNAL routines in the segment or may 
be a unique external name. Thus, a 
function called SIN could be in a seg- 
ment called SIN. An external name is an 
identifier for a program, segment, def 
or ref variable, EXTERNAL routine, MAIN 
procedure or a REENTRANT procedure. 


Pascal/VS program 


modules 


program-module 


Pa Oe Se Oe 


The optional identifier list following 


the program identifier is not used by 
Pascal/Vs. The identifiers will be 
ignored, 


A program is formed by linking a program 
module with segment modules Cif any) and 
with the Pascal/VS execution library and 
libraries that you may supply. 


Pascal/VS allows declarations to be giv- 
en in any order. This is an extension 
to Pascal and is provided primarily to 
permit source that is INCLUDEd during 
compilation to be independent of any 
ordering already established in the mod- 
ule. The standard ordering for 
declarations is shown in the diagram for 
declarations. (For a description of the 
INCLUDE facility see "The %*INCLUDE 
Statement" on page 146.) 


Every identifier must be predefined or 
declared by you before it is’ used. 
There is one exception to this rule: a 


definition of a pointer may refer to an 
identifier before it is declared. The 
identifier must be declared later ora 


execution-lib 


program EXAMPLE; 
var 
I : INTEGER; 
begin 
for I:=0 to 1000 do 
if I mod 7 = 0 then 
WRITELNC I:5, 
" IS DIVISIBLE BY SEVEN') 


compile-time’ diagnostic will be 
produced. 
rary 
SEGMENT COSINE; 
function COSINE 
(X : REAL ) REAL; EXTERNAL; 
function COSINE; 
var S: REAL; 
begin 
§ := SIN(X); 
COSINE == SQRTC(1.0 - SS) 
end; 


end. 


Example of a Program Module 
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Example of a Segment Module 


4.0 PASCAL/VS DECLARATIONS 


Pascal/VS provides you with 10 types of + ® def 
declarations: + 
+ e ref 
° label + 
+ static 
e const + 
+e value 
° type 
° procedure 
° var 
° function 


4.1 THE LABEL DECLARATION 


label-dcl: 


—->> label >{label} 
Le < 


? 


label: 


TL? tunsigned-integer} 


Note: the values of the unsigned integer must be in the subrange 0..9999. 


A label declaration is used to declare 
labels which will appear in the routine 
and will be referenced by a goto state- 


ment within the routine. All labels Tabel 
defined within a routine must be 10, 
declared in a label declaration within Label_A, 
the routine. l, 
2, 
A label ~ay be either an unsigned inte- Error_exit; 
ger or an identifier. If the value is 
an unsigned integer it must be in the A Label Declaration 


range 0 to 9999. 
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§.2 THE CONST DECLARATION 


Syntax: 


constant-del: 


+ —> const “To = —>{constant-expr} > 3 > 
< 


A constant declaration allows you to 
+ assign identifiers that are to be used 


+ as synonyms for constant expressions. const 

The type of a constant identifier is BLANK = 'o%; 

determined by the type of the expression BLANKS =! 5 

in the declaration. FIFTY = 50; 
A = FIFTY; 
B = FIFTY * 10/(3+t2); 
C_SQUARED = AXA + BB; 
ORD_OF_A = ORDC'A'); 
PI = 3.14159265358; 
MASK = '8000'X | '0400'X; 
ALFALEN = 8; 
ALPHALEN = 163 
LETTERS = "At. .t'Z' tat ..tzt J 

| MAXREAL = "7FFFFFFFEFFFFFFFF' xr; 


Constant Declarations 
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4.3. THE TYPE DECLARATION 


type-dcl: 


—> type on a = ——>{type]——> ; > 
< 


A type declaration allows you to define 
a data type and associate a name to that 


type. Once declared, such a name may be type 
used in the same way as a predefined 
type name. { all of the following types } 
{ are predefined in Pascal/VvsS } 
INTEGER = MININT..MAXINT; 
BOOLEAN = C(FALSE,TRUE); 
ALFA = packed array[1..ALFALEN] 
of CHAR; 
ALPHA = packed arrayf1..ALPHALEN] 
of CHAR; 
TEXT = file of CHAR; 


Type Declarations 
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4.4 THE VAR DECLARATION 


var-dcl: 


—> var >f{id} > : ——>{type}—> ; > 
[eee eeeeest — = | 
< 


The var declaration is used to declare 


automatic variables. Automatic vari- 
ables are allocated when the routine is 
invoked, and are de-allocated when the 
corresponding return is made. If the 
routine is invoked a second time, before 
an initial invocation completes Ca 
recursive call), the local automatic 
variables will be allocated again ina 
stack-like manner. The variables allo- 
cated for the first invocation become 
inaccessible until the recursive call 
completes. 


Commas are used in the declaration to 
separate two or more identifiers that 
are being declared of the same type. 
This is a shorthand notation for two 
separate declarations. 


var 
I > INTEGER; 
SYSIN : TEXT; 
X, 
Y; 
Z > REAL; 
CARD: 
record 
RANK =: 1..13;3 
al > CSPADE,HEART,DIAMOND,CLUB) 
end; 


Example of a Var Declaration 


Variables which are to be accessed 
across modules should be declared as def 
variables (see "The Def/Ref 
Declaration" On page 28), but if 
reentrancy is required, then a mechanism 
is required that does not rely on static 
storage. 


The global automatic variables of the 
main program! may be accessed from a 
segment module. The storage for auto- 
matic variables declared in the outer- 
most level of a segment are mapped 
directly on top of the main program 
global variables. Therefore, to access 
the main program globals, a segment mod- 
ule must have an identical copy of the 
main program's variable declarations. 
This mechanism is not as safe? and as 
convenient as using def variables. 


If the variables of the main program are 
to be accessable across modules then the 
“*INCLUDE facility should be used so that 
identical copies of the variable’s dec- 
larations can be included in all 
modules. (See "The ZINCLUDE Statement” 
on page 146). 


program MAIN; 


var 

I > INTEGER; 
X> 

Y > REAL; 


J > INTEGER; 
i {remainder of program module} 


SEGMENT SEG; 


var 

I > INTEGER; 

xX, 

Y > REAL; 

J > INTEGER; 

Lethe {remainder of segment module} 


Example of a Var Declarations 
Shared between Programs and Segments 


I That is, those variables declared with the var construct in the outermost 


nesting level of the main program. 


2 That is, unpredictable errors can occur when the variables declared ina 
segment do not match those in the associated main program. The compiler has 


no way of checking the integrity. 
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4.5 THE STATIC DECLARATION 


static-dcl: 


The static declaration is used _ to 
declare static variables. The variables 
declared in this way are allocated prior 
to program execution and exist for the 
life of the program's execution. 


Static variables can be referenced 
according to the lexical scoping rules. 
Two static variables in different scopes 
are different variables even though they 
have the same name. 


Data in static variables that are local 
to a routine will be preserved over sep- 
arate invocations of the routine. Such 
a routine called recursively will access 
the same instance of each static vari- 
able. 


treet 


Po ee eS 
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Static variables may be initialized at 
compile-time by the use of a valua dec- 
laration. 


Programs which modify static variables 
are not reentrant. 


static 
SYSPRINT TEXT; 
X,Y: REAL; 


Example of a Static Declaration 
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4.6 THE DEF/REF DECLARATION 


def-del: 
“"-T rT? def 


The def/ref declarations 


are used to 


declare external variables. External 
variables are allocated prior to exe- 
cution and can be accessed from more 


than one module. All identifiers that 
are to be used as external names must be 
unique in the first eight characters. 


If an external variable with a partic— 


ular name is declared in several 
modules, a single common storage 
location will be associated with each 
such variable. An external variable 


must be declared with identical types in 
each module; the programmer is responsi- 
ble for assuring that the types are the 
same. 


The def declaration specifies that the 
program loader is responsible for gener- 
ating the common storage for the vari- 
able. The ref declaration specifies 
that storage for the variable is defined 
in another module (Cor in the runtime 
environment). Ref declared variables 
will remain unresolved until the encom- 
passing module is compiled and linked 
with a module in which the variable is 
declared as a def variable or defined in 
a non-Pascal CSECT or in an assembly 
language COM. The expected use of ref 
variables is to access external data 
declared in non-Pascal/VS programs such 
as those written in assembly language. 


A def or ref variable may be declared 
local to a routine; the same scope rules 
apply as for any other declared identi- 
fier. However, if the name of the vari- 
able is declared in another scope Ceven 
in another module) as a def or ref vari- 
able, both occurrences of the variable 
will reference the same storage. 


In the following example, the variable X 
in procedures A, B, and C references the 
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same storage; however, the variables X 
declared in segment P and procedure D 
each refer to storage that is separate 
from the external variable X. 


Def variables may be initialized at com- 
pile-time by the use of a value declara- 
tion. 


Programs which modify def, ref, or stat- 
ic variables are not reentrant. 


SEGMENT M3; 

procedure A; 
def X: REAL; 
begin 


{ same as X in B } 
end; 
procedure B; 


def X: REAL; 
begin 


{ same as X in A } 


end;. 


SEGMENT P; 
Static X: REAL;{ local to P } 
procedure C; 


ref X: REAL; 


; in A,B} 
begin 


{ same as X 
end; , 


procedure D; 
var X: REAL; 
begin 


{ local to D } 
end; . 


Examples of Def and Ref Declarations 


SEER EE EEE EEE EEE EEE EE EEE EEE EEE EEE EEE EEE EEE EEE HEHEHE EEE HEHEHE HEHEHE HH Hee Hee eo eet 


4.7 THE VALUE DECLARATION 


value-dcl: 


value-assignment: 


--->{variable}-—--> 


note: 
to constant expressions. 


The value declaration is used to specify 


an initial value for static and def var- 
iables. The declaration is composed of 
a list of value-assignment statements 


separated by semicolons. The assignment 
statements in a value declaration are of 
the same form as the assignment state- 
ments in the body of a routine except 
that all subscripts and expressions must 
be able to be evaluated at compile time. 


type 

COMPLEX = record 

RE,IM: REAL 
and; 

VECTOR = arrayl[1..7] of INTEGER; 
static 

C: COMPLEX; 

Vi VECTOR; 

Vi: VECTOR; 
def 


I : INTEGER; 
Q@ : array[li..10] of COMPLEX; 


{ the following assignments will } 
{ take place at compile time } 
value 

Cc = COMPLEX(3.0,4.0); 

V = VECTOR(1,0:5,7); 

V1 = VECTOR(,,,4)3 

V02] = 23 

V3] = 3%*4-1; 

I = 0; 

QCTLi].RE := 3.1415926 7 2; 

QCLJ.IM == 1.414; 


Example of a Value Declaration 


If the variable contains subscripts, 


+eeeeeeeetst 


+eteete—teeeteee 
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75 ""7[ 777? (constant~expression}—---7 sharin leaheinin anne > 
--->{structured-constant}---> 


the subscripts are limited 


If a def variable is initialized with a 
value declaration in one module, you may 
not use a value declaration on that var- 
jable in another module. The compiler 
will not check this violation, however a 
diagnostic will be generated when you 
combine the modules into a single load 


module by the system loader. 


type 

CUBE = array[1..10,1..10,1..10] 

of REAL; 

static 

BLOCK CUBE: 
{ the following assignments will } 
{ take place at compile time } 
value 

BLOCK 25 


CUBEC € €0.0:10):10 3:10 0; 


Example of Intializing 
a 3 Dimensional Array 
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>{id: type} 
>{enumerated-scalar-type} 


>{subrange-scalar-type} 


“_—> {pointer-type} 


A data type determines the kind of val- 
ues that a variable of that type can 
assume. Pascal/VS allows you to define 
new data types with the type 
declaration. The data type mechanism is 
a very important part of Pascal/VS. 
With it you can describe your data with 
great clarity. 


There are several mechanisms that can be 
used to define a type; each mechanism 
allows the new data type to have certain 
properties. All data types can be clas- 
sified as either scalar, pointer, or 
structured, 


You define the data type of a variable 
when the variable is declared. A previ- 
ous type declaration allows an identi fi- 
er to be associated with that type. Such 
an identifier can be used wherever a 
type definition is needed: ina variable 
declaration (var, static, def, or ref), 
as a parameter, in a procedure or func— 
tion, in a field declaration within a 
record definition, or in another type 
declaration. 


5.1 A NOTE ABOUT STRINGS 


Standard Pascal defines the term 
"string" as a variable or constant which 
has an associated type of 
"packed array(l1l..n] of CHAR", where n is 
a positive integer constant. 


Pascal/VS supports varying length 

strings; that is, strings which have 
lengths that vary at execution time. A 

variable may be declared as a varying 
length string with the predefined type 

DT RING (see "The Type STRING” on page 
1). 


>{reco rd-type} —— 
> {set-type}-—_— HA 


> {fi le-type}-—H—HHH HH hehe 


5.0 TYPES 


> {array- type} 


Throughout this manual the term "string" 
shall refer to an object of the prede- 
fined type STRING. 


5.2 TYPE COMPATIBILITY 


Pascal/VS supports strong typing of 
data. The strong typing permits 


Pascal/VS to check the validity of many 
operations at compile time; this helps 
to produce reliable programs at exe- 
cution time. Strong typing puts strict 
rules on what data types are cecnsidered 
to be the same. These rules, called 
type compatibility, requires you to 
carefully declare data. 


5.2.1 Implicit Type Conversion 


In general, Pascal/VS does not perform 
implicit type conversions on data. The 
only implicit conversions that 
Pascal/VS permits are: 


1. An INTEGER will be converted to a 
REAL CSHORTREAL) when one operand of 
a binary operation is an INTEGER and 
the other is a REAL CSHORTREAL). 


2. An INTEGER will be converted to a 
REAL (SHORTREAL) when assigning an 
INTEGER to a REAL CSHORTREAL) vari- 
able. 


3. An INTEGER will be converted to a 


REAL if it is used in a floating 
point divide operation ('7/'). 
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4. An INTEGER will be converted to a 
REAL CSHORTREAL) if it is passed by 
value or passed by const to a param- 
eter requiring a REAL CSHORTREAL) 
value. 


5. A SHORTREAL will be converted toa 
REAL when one operand of a binary 
operation is a SHORTREAL and the 
other is a REAL. 


6. A SHORTREAL will be converted to a 
REAL when assigning a SHORTREAL to a 
REAL variable. 


7. A SHORTREAL will be converted to a 
REAL if it is passed by value or 
passed by const to ae parameter 
requiring a REAL value. 


8. A string will be converted to a 
‘packed array[1..n] of CHAR’ = on 
assignment. The string will be pad- 
ded with blanks on the right if it 
is shorter than the array to which 
it is being assigned. Truncation 
will raise a runtime error if check- 
ing is enabled. 


9. <A string being passed by value or 
passed by const to a formal parame- 
ter that requires a 
‘packed array[1..n] of CHAR’ will 
be converted. The string will be 
padded with blanks on the right if 
it is shorter than the array to 
which it is being passed. Trun- 
cation will raise a runtime error if 
checking is enabled. 


5.2.2 Same Types 


Two variables are said to be of the same 
type if the declaration of the 
variables: 


° refer to the same type identifier; 

e or, refer to different type identi- 
fiers which have been defined as 
equivalent by a type definition of 
the form: 


type Ti = T2 


32 Pascal/VS Reference Manual 


+++ 


5.2.3 Compatible Types 


Operations can be performed between two 
values that are of compatible types. 


Two types are said to be compatible if: 

) the types are the same; 

° one type is a subrange of the other 
or they are both subranges of the 
same type; 

° both types are strings; 


° one value is a string literal and 


the other is a ‘packed arrayLll..n] 
of CHAR’; 
) one value is a string literal of one 


character and the other is a CHAR; 


) they are set types with compatible 
base types; 


° or, they are both 
‘packed array[l..n] of CHAR’ with 
the same number of elements. 

Furthermore, any object which is of a 

set type is compatible with the empty 


set. And, any object which is a pointer 
type is compatible with the value nil. 


5.2.4 Assignment Compatible Types 


A value may be assigned to a variable if 
the types are assignment compatible. An 
expression E is said to be assignment 
compatible with variable V if: 


° the types are same type and neither 
is a file type; 


° V is of type REAL and E is compat- 
ible with type INTEGER; 


° Vis a compatible subrange of E and 
the value to be assigned is within 
the allowable subrange of V3 


° Vand E have compatible set types 
and all members of E are permissible 
members of V3 or, 


° Vis a ‘packed array[1..n] of CHAR® 
and E is a string. 


c 


type 
x 
DAYS 
WEEK 

var 
A: 
B 


LEeMMVOVYy 


1 
2 


> X3 


= array{ 1..10 ] of 


INTEGER; 

= (MON, TUES, 
FRI, SAT, 

DAY = MON .. FRI; 


array{ 1..10 1] of 
INTEGER; 


: arrayl 1..10 ] of 


INTEGER; 
arrayl 1..10 ] of 
CHAR; 


> 
. 
> 


DAYS; 


: WEEKDAY 


compatible 
with 


WED, THURS, 
N y 


, 


Examples of Compatibility 
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5.3 THE ENUMERATED SCALAR 


enumerated-scalar-type: 


—> ¢ >{id} ) 
Pi ae 


An enumerated scalar is formed by list- 
ing each value that is permitted for a 
variable of this type. Each value is an 
identifier which is treated as a 
self-defining constant. This allows a 
meaningful name to be associated with 
each value of a variable of the type. 


type 
DAYS = (MON, TUES, WED, THURS, 
FRI, SAT, SUN); 
MONTHS = (JAN, FEB, MAR, APR, 
MAY, JUN, JUL, AUG, 
SEP, OCT, NOV, DEC); 
var 
SHAPE CTRIANGLE, RECTANGLE, 
SQUARE, CIRCLE); 
REC : record 
SUIT: CSPADE, HEART, 
DIAMOND, CLUB); 
WEEK: DAYS 
end; 
MONTH MONTHS; 


Enumerated Scalars 


An enumerated scalar type definition 
declares the identifiers in the enumer- 
ation list as constants of the scalar 


34 Pascal/VS Reference Manual 


type being defined. The lexical scope 
of the newly defined constants is the 
same as that of any other identifier 
declared explicitly at the same lexical 
level. 


These constants are ordered such that 
the first value is less than the second, 
the second less than the third and so 
forth. In the first example, MON < TUES 
< WED < < SUN. There is no value 
less than the first or greater than the 
last. 


The following predefined functions 
operate on expressions of a scalar type 
(see the indicated section for more 


details): 
Function Page 

ORD 125 
MAX 129 
MIN 129 
PRED 130 
Succ 130 
LOWEST 122 
HIGHEST 122 

Notes: 

1. Two enumerated scalar type defi- 


nitions must not have any elements 
of the same name in the same lexical 
scope. 


2. The standard type BOOLEAN is defined 
as (FALSE, TRUE). 


5.4 THE SUBRANGE SCALAR 


Syntax: 


subrange-scalar-type: 


>{constant}——> .. 


t---> range --->{constant-expr}---> 


The subrange type is a subset of consec” 
utive values of a previously defined 
scalar type. Any operation which is 
permissible on a scalar type is also 
permissible on any subrange of it. 


A subrange is defined by specifying the 
minimum and maximum values that will be 
permitted for data declared with that 
type. For subranges that are packed, 
Pascal/VS will assign the smallest num- 
ber of bytes required to represent a 
value of that type. 


If the reserved word range is used in 
the subrange definition, then both the 
minimum and maximum values may be any 
expression that can be computed at com- 
pile time. If the range prefix is not 
employed then the minimum value of the 
range must be a simple constant. 


The following predefined functions 
operate on expressions of a scalar type 
(see the indicated section for more 


details): 
Function Page 
ORD 126 
MAX 130 
MIN 130 
PRED 131 
Succ 131 
LOWEST 123 
HIGHEST 123 
Notes: 


1. A subrange of the standard type REAL 
is not permitted. 


2. The number of values in a subrange 
of type CHAR is determined by the 
collating sequence of the EBCDIC 
character set. 


3. The lower bound of a subrange defi- 
nition that is not prefixed with 
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—>{constant-expr} 


--->{constant-expr}--->4 


‘range’ must be a simple constant 
instead of a generalized constant 
expression. 


const 
SIZE = 1000; 
type 
DAYS = (SU, MO, TU, WE, 
TH, FR, SA); 
MONTHS = (JAN, FEB, MAR, APR, 
MAY, JUN, JUL, AUG, 
SEP, OCT, NOV, DEC); 
UPPER_CASE = "A' .. 'Z'; 
ONE_HUNDRED = 0... 99; 
CODES = range 
CHRCO)..CHR(255); 
INDEX = packed 1 SIZE+1; 
var 
WORK_DAY >: MO .. FR; 
SUMMER > JUN .. AUG; 
SMALLINT packed 0..255; 
YEAR > 1900 2000; 


Subrange Scalars 


The following example illustrates that 
two subrange types may be defined over 
the same base type. Operations are per- 
mitted between these two variables 
because they have the same base type. 


var 
NEG > MININT .. -1;3 
POS > 1 .. MAXINIT; 


Subranges with the Same Base Type 
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5.5 PREDEFINED SCALAR TYPES 


5.5.1 The Type INTEGER 


The following table describes the oper- apply to values which are the standard 
ations and predefined functions that type INTEGER. 


INTEGER 


unary returns the unchanged result of the operand 
binary forms the sum of the operands 

unary negates the operand 

binary forms the difference of the operands 

binary forms the product of the operands 


binary 


converts the operands to REAL and produces 
the REAL quotient 
forms the integer quotient of the operands 
forms the integer modulus of the operands 
(same as remainder if the arguments are positive) 


div binary 
binary 


= binary compares for equality 

<> or -= binary compares for inequality 

< binary compares for less than 

<= binary compares for less than or equal to 

>= binary compares for greater than or equal to 
> binary compares for greater than 


= unary returns one's complement on the operand 
| binary returns ‘logical or’ on the operands 
& binary returns ‘logical and’ on the operands 
&& binary returns ‘logical xor' on the operands 
<< binary returns the left operand value shifted 
left by the right operand value 
>> binary returns the left operand value shifted 
right by the right operand value 
CRR(x) function returns a CHAR whose EBCDIC representation is x 
PRED(x) function returns x-l 
SUCC(x) function returns xt+l 
ODD(x) function returns TRUE if x is odd and FALSE otherwise 
ABS(x) function returns the absolute value of x 
SQRCx) function returns the square of x 
FLOATC(x) function returns a REAL whose value is x 
MIN( ) function returns the minimum value of two or more operands 
MAXC ) function returns the maximum value of two or more operands 
LOWEST(x) function returns MININT or the minimum value of the range 
if x is a subrange of INTEGER 
HIGHEST(x)|] function returns MAXINT or the maximum value of the range 
if x is a subrange of INTEGER 
SIZEOF(x) function returns the number of bytes required for a value 
of the type of x, which is always 1, 2, 3, or 4 
The type INTEGER is’ provided as a whose value is 2147483647. That is, the 
pre-defined type in Pascal/VS. This predefined type INTEGER represents 32 
type represents the subset of whole num- bit values in 2's complement notation. 


bers as defined below: 
Type definitions representing integer 


type Subranges may be prefixed with the 
INTEGER = MININT..MAXINT; reserved word "packed". ‘For variables 
declared with such a type, Pascal/VS 

where MININT is a predefined INTEGER will assign the smallest number of bytes 
constant whose value is -2147483648 and required to represent a value of that 
MAXINT is a predefined INTEGER constant type. The following table defines the 
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number of bytes required for different 
ranges of integers. For ranges other 
than those listed, use the first range 
that encloses the desired range. Given 
a type definition T as: 


type T = packed i..j; 


Size in|Alignment 
bytes 


-255 BYTE 
127 BYTE 
32767 HALFWORD 


-65535 HALFWORD 


-8388608. .8388607 BYTE 


0..16777215 BYTE 


otherwise FULLWORD 
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Notes: 


1. The operations of div and mod are 
defined as: 


A div B TRUNCCA/B), B<>d 


A mod B = A-BXCA div B), A>=0,B>0 
A mod B = B-abs(A) mod B, A<0,B>0 


B=0 when doing a div operation or 
B<=0 when doing a mod operation 
1s defined as an error and will 
cause a runtime error message to 
be produced. 


2. The following operators 
logical operations: 


perform 


<< shift left logical 
>> shift right logical 
™ 1’*s complement 

| logical inclusive or 
& logical and 

2& logical exclusive or 


The operands are treated as unsigned 
strings of binary digits. See "Logical 
Expressions" on page 78 for more details 
on logical expressions. 
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5.5.2 The Type CHAR 


The following table describes the oper- 
ations and predefined functions that 
apply to the standard type CHAR. 


description 


for 
for 
for 
for 
for 
for 


binary 
binary 
binary 
binary 
binary 
binary 


compares 
comperes 
compares 
compares 
compares 
compares 
ORDC(x) 


function converts 


operand to an INTEGER based on 


equality 

inequality 

left less than right 

left less than or equal to 
left greater than or equal 
left greater than right 


right 
to right 


ordering 


sequence of underlying character set. 


PRED(x) function 


SUCC( x) function 
STRCx) 
MINC ) 
MAXC ) 
LOWEST(x) 


function 
function 
function 
function 


returns the 
returns the 
returns the 

character 
returns the 

character 
returns the 


HIGHEST(x) | function 


SIZEOF(x) function 


CHAR is a scalar type that consists of 
all of the values of the EBCDIC charac- 
ter set. Variables of this type occupy 
one byte of memory and will be aligned 
on a byte boundary. 


A single-character string constant will 
be regarded as a CHAR constant if the 
context so dictates. For example, the 
assignment statement shown below sets 
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x 


maximum 


x 


returns the preceding character 
in collating sequence 

returns the succeeding character 
in collating sequence 

converts the operand to a 

minimum 

maximum 

minimum 


STRING 
of two 
of two 
of the 


value 
value 
value 


or more operands 
or more operands 
range of the 

of the 


value range of the 


number of bytes required for a value 


of the type of a CHAR, 


which is always 1 


variable C to the EBCDIC code for the 
letter A. 
var C: CHAR; 
begin 
Crs "A'S 
end 


c 


teeteet 


TNL SN20-4446 (31 December 81) to SH20-6168-1 


5.5.3 The Type BOOLEAN 


The following table describes the oper- 
ations and predefined functions that 
apply to the standard type BOOLEAN. 


BOOLEAN 


returns TRUE if the operand is FALSE, 
otherwise it returns FALSE 
returns TRUE if both operands are TRUE 
returns TRUE if either operand is TRUE 
returns TRUE if either, but not both operands are TRUE 


unary 


binary 
binary 
binary 


= binary compares for equality 

<> or 7= binary compares for inequality 

< binary compares for left less than right 

<= binary compares for left less than or equal to right 

>= binary compares for left greater than or equal to right 
> binary compares for left greater than right 


ORD(x) function returns 0 if x is FALSE and 1 if x is TRUE 

MINC ) function returns TRUE if all operands are TRUE 

MAX ) function returns FALSE if all operands are FALSE 

LOWEST C(x) function returns the FALSE by definition 

HIGHEST(Cx)| function returns the TRUE by definition 

SIZEOF(x) function returns the number of bytes required for a value 


of the type of a BOOLEAN, which is always i 


Binary Operations on BOOLEAN 


FALSE FALSE FALSE TRUE TRUE FALSE TRUE TRUE 


Equivalence 


<> Exclusive Or 
< 

<= Implication 
>= 

> 

& And 

| Inclusive Or 
&& Exclusive Or 


The type BOOLEAN is defined as a scalar form valid boolean functions as shown in 
whose values are FALSE and TRUE as the table of binary operations. 
though declared with the following type 
declaration: Pascal/VS will optimize the evaluation 
of BOOLEAN expressions involving '‘'&' 
type Cand) and '|' Cor) such that the right 
BOOLEAN=CFALSE, TRUE); operand expression will not be evaluated 
if the result of the operation can be 
Variables of this type will occupy one determined by evaluating the left oper- 
byte of memory and will aligned on a and. For more details see "Boolean 
byte boundary. The relational operators Expressions" on page 77. 
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+++ 


5.5.4 The Type REAL 


The following table describes the oper- 
ations and predefined functions that 
apply to the standard type REAL. 


operation 


description 


returns the 
forms the su 
negates the 
forms the di 
forms the pr 
forms the RE 


unary 
binary 
unary 
binary 
binary 
binary 


NK Et e+ 


for 
for 
for 
for 
for 
for 


binary 
binary 
binary 
binary 
binary 
binary 


compares 
compares 
compares 
compares 
compares 
compares 


< 
< 
< 
> 
> 


TRUNCCx) 
ROUND(x) 
ABS(x) 
SINCx) 
COS(x) 
ARCTANCx) 
LNCx) 
EXPC(x) 
SQRTCx) 
SQRCx) 
MINC ) 
MAXC ) 
SIZEOF(x) 


the 
the 
the 
the 
the 
Cin 
the 
natu 
squa 
the 
the 


returns 
returns 
returns 
returns 
returns 
returns 
returns 
returns 
returns 
returns 
returns 
returns the 
returns the 

of the typ 


function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 


The type REAL represents floating point 
data. Variables of this type will occu- 
py eight bytes of memovy and will be 
aligned on a double word boundary. All 
REAL arithmetic is done using double 
precision floating point. See "Implicit 
Type Conversion" on page 31. 
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the operand 
operands 


value of 
m of the 
operand 
fference of the operands 
oduct of the operands 

AL quotient of the operands 


equality 

inequality 

left less than right 

left less than or equal to right 
left greater than or equal to right 
left greater than right 


operand value truncated to an INTEGER 
operand value rounded to an INTEGER 
absolute value of the operand 
trigonometric sine of x Cin radians) 
trigonometric cosine of x Cin radians) 
radians) the arc tangent of x 

natural logarithm of x 

ral log base raised to the x power 

re root of x 

square of x 

minimum value of the operands 

maximum value of the operands 

number of bytes required for a value 
e of a REAL, which is always 8 


The type REAC has restrictions that oth- 
er scalar types do not have. You may 
not take a subrange of REAL nor index an 
array by REAL. The predefined functions 
SUCC, PRED, ORD, HIGHEST and LOWEST are 
not defined for type REAL. 


§.5.5 The Type SHORTREAL 


The following table describes the oper- 
ations and predefined functions that 
apply to the standard type SHORTREAL. 


SHORTREAL 


operation 


returns the 
forms the su 
negates the 
forms the di 
forms the pr 
forms the SH 


unary 
binary 
unary 

binary 
binary 
binary 


NMR Et ++ 


for 
for 
for 
for 
for 
for 


binary 
binary 
binary 
binary 
binary 
binary 


compares 
compares 
compares 
compares 
compares 
compares 


< 
< 
< 
> 
> 


TRUNC( x) 
ROUND( x) 
ABS(x) 
SINCx) 
COS(x) 
ARCTANC x) 
LNCx) 

EXP (x) 
SQRTCx) 
SQRCx) 
MINC ) 
MAX ) 
SIZEOF(x) 


returns 
returns 
returns 
returns 
returns 
returns 
returns 
returns 
returns 
returns 
returns 
returns the 
returns the 
of the typ 


function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 


the 
the 
the 
the 
the 
Cin 
the 
natu 
squa 
the 
the 


The type SHORTREAL represents floating 
point data. Variables of this type will 
occupy four bytes of memory and will be 


aligned on a word. boundary. All 
SHORTREAL arithmetic is done using sin- 
gle precision floating point 


instructions. 


Operations between data of type REAL and 
SHORTREAL will be performed using double 
precision floating point instructions. 
The SHORTREAL operand will be implicitly 
converted to a value of type REAL. A 
SHORTREAL may be passed as an operand to 


value of the operand 

m of the operands 

operand 

fference of the operands 

oduct of the operands 

ORTREAL quotient of the operands 


equality 

Inequality 

left less than right 

left less than or equal to right 
left greater than or equal to right 
left greater than right 


operand value truncated to an INTEGER 
operand value rounded to an INTEGER 
absolute value of the operand 
trigonometric sine of x Cin radians) 
trigonometric cosine of x Cin radians) 
radians) the arc tangent of x 

natural logarithm of x 

ral log base raised to the x power 

re root of x 

square of x 

minimum value of the operands 

maximum value of the operands 

number of bytes required for a value 
e of a SHORTREAL, which is always 4 


a function or procedure that expects its 


parameter to be of type REAL if the 
parameter passing mechanism for that 
parameter is value or const. See "Im- 


plicit Type Conversion" on page 31. 


The type SHORTREAL has restrictions that 
other scalar types do not have. You may 
not take a subrange of SHORTREAL nor 
index an array by SHORTREAL. The prede- 
fined functions SUCC, PRED, ORD, HIGHEST 
and LOWEST are not defined for type 
SHORTREAL. 
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5.6 THE ARRAY TYPE 


array-type: 


> packed 
“Teen 


> array [ Tm? Lindex-type}—T—_? ] of —>{type} ———— 
——— , < 


index-type: 


>{enumerated-scalar-type}——> 
—{—> {id: scalar-type} ————_> p> 
>{subrange-scalar-type} 


The array type defines a list of homoge- 
neous elements; each element is paired 
with one value of the index. An element 
of the array is selected by a subscript. 
The number of elements in the array is 
the number of values potentially 
assumable by the index. Each element of 
the array is of the same type, which is 
called the element type of the array. 
Entire arrays may be assigned if they 
are of the same type. 


Pascal/VS uses square brackets, ‘CT’ and 
"]', in the declaration of arrays. 
Because these symbols are not directly 
available on many I/0 devices, the sym- 
bols 'C€.' and '.)' may be used as an 
equivalent to square brackets. 


Pascal/VS will align each element of the 
array, if necessary, to make each ele- 
ment fall on an appropriate boundary. A 
packed array will not observe the bound- 
ary requirements of its elements. Ele- 
ments of packed arrays may not be passed 
as var parameters to routines. 


An array which is defined with more than 
one index is said to be a 
multi-dimensional array. A 
multi-dimensional array is exactly 
equivalent to an array of arrays. In 
short, an array definition of the form 


arrayli,j,... 1] of T 


is an abbreviated form of 


arraylil of 
arraylj] of 


coe 


where i and j are scalar type defi- 
nitions. Thus, the first and second 
type declarations in the example below 
are alternatives to the same structure. 
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type 

MATRIX = array[ 1..10, 1..10 J] of 
REAL; 

MATRIXO = arrayl 1..10 J] of 
arrayl 1..10 ] of 

L; 
ABLE = array[ BOOLEAN] of INTEGER; 
COLOR = (RED, YELLOW, BLUE); 


INTENSITY = packed array[COLOR] 
of REAL; 


ALFA = packed arrayl 1..ALFALEN] of 
CHAR 


. 
» 


Examples of Array Declarations 


There are two procedures available for 
conversion between a packed array anda 
similar but unpacked array. The prede- 
fined procedures PACK (see "PACK Proce- 
dure" on page 121) and UNPACK (see 
"UNPACK Procedure" on page 121) are pro- 
vided for this purpose. 


5.6.1 Array Subscripting 


Array subscripting is performed by plac- 
ing an expression in square brackets 
following an array variable. The 
expression must be of a type that is 
compatible with the index type and eval- 
uate to one of the values of the index. 
See "Compatible Types" on page 32 The 
eg may be any scalar type except 
EA 


var 


M > MATRIX; 
( HUE > INTENSITY; 
begin 


{ assign ten element array } 
MC1) >= ML2]; 


{ assign one element of a two } 
{ dimensional array two ways } 


MC1,1] == 3.14159; 
MC1]01] >= 3.14159; 
{ this is a reddish orange } 
HUECRED] = 0.73 
HUECYELLOW] = 0.3; 
HUECBLUE] = 0.0; 

end 


Examples of Array Indexing 
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5.7 THE RECORD TYPE 


record-type: 


OOD J” record —>{field-list}——> end 
> packed —> 


field-list: 


> 
ian ° vant~ —l_— ;- > 
—_[— 3 {variant-part)} ; —T_ 


>{fixed-part} 
Laer ee” Fs 


fixed-part: 


Variant-part: 
—> case 


> {range} > 
< » < 


( >{field-list} a) > 
ee 
> < 


---> ( --->{constant-expr}---> ) ---> 


—>? fconstant= expr) 70 
---> .. --->{constant-expr}---> 


A record is a data structure which is 
composed of heterogeneous components; 
each element may be of a different type. 
Components of a oerecord are called 
fields. 


5.7.1 Naming of a Field 


A field is referred to by the name of 
the field. The scope of the identifiers 
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thet + 


used as names is the record type itself. 
That is, every field name within a 
record must be unique, even if that name 
appears ina variant part. 


A field of a record need not be named; 
that is, the field identifier may be 
missing. In such a case, the field only 
serves as padding; it can not be refer- 
enced. 


5 


tee e ete 


record 

A, 

B =: INTEGER; 
> CHAR; 

C : CHAR 

end; 


{unnamed} 


DATE = record 
DAY 
MONTH 
YEAR 
end; 


PERSON = record 
LAST_NAME, 
FIRST_NAME 
MIDDLE_INITIAL 
AGE 
EMPLOYED 
end; 


1..31;3 
1..12;3 
1900. .2100 


ALFA; 
CHAR; 
0..99; 
BOOLEAN 


Simple Record Decla-cations 


5.7.2 Fixed Part 


The fixed part of a record 
of fields that exist 
that is declared to be of that record 
type. The fixed part, if present, is 
always before the variant part. 


is a series 
in every variable 


5.7.3 Variant Part 


The variant part of a record permits the 
defining of an alternative structure to 
the record. The record structure adopts 
one of the variants at a time. 


The variant part of a record 
with the cas@ symbol. 
tifier may follow. This field is a sca- 
lar value that indicates which variant 
is intended to be active. 


is denoted 
A tag field iden- 


The tag field is a field in the fixed 
part of the record. When the tag field 
is followed by a type identifier, then 
the tag field defines a new field within 
the record. 


If the type identifier is missing, then 
the tag field name must be one which was 
previously defined within the record. 
This allows you to place the tag field 
anywhere in the fixed part of the 
record. 


A variant part of a record need not have 
a tag field at all. In this case, only a 
type identifier is specified in the case 
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construct. You still refer to the vari- 
ant fields by their names but it is your 
responsibility to keep track of which 
variant is ‘active’ Ci.e. contains valid 
data) during execution. 


In short, tag fields may be defined in 
the following ways: 


° “case I INTEGER of" results in I 
being a tag field of type INTEGER. 


. “case INTEGER of” means no tag field 
is present, the variants are denoted 
by integer values in the variant 
declaration. 


° "case I: of" means that I is the tag 
field and it must have been declared 
in the fixed part, the type of I is 
as given in the field definition of 


illustrate the 
complete record 


The following examples 
three tag fields in 
definitions. 


type 


SHAPE = CTRIANGLE, 


SQUARE, 
COORDINATES = 


RECTANGLE, 
CIRCLE); 


{ fixed part: } 
record 
X,Y 
AREA 
case § 


REAL; 
REAL; 
SHAPE of 
{ variant part: } 
TRIANGLE: 
CSIDE 
BASE 


REAL; 
REAL); 


RECTANGLE: 
CSIDEA,SIDEB REAL); 
SQUARE: 
CEDGE REAL); 
CIRCLE: 
CRADIUS 
end; 


REAL) 


A Record With a Variant Part 


The record defined as COORDINATES in the 
example above contains a variant part. 
The tag field is 5S, its type is SHAPE, 
and its value (whether TRIANGLE, RECTAN- 
GLE, SQUARE, or CIRCLE) indicates which 
variant is in effect. The fields SIDE, 
SIDEA, EDGE, and RADIUS would all occupy 
the same offset within the record. The 
following diagram illustrates how the 
record would look in storage. 
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EEE EEE EEE EEE EEE EEE HEHEHE HEHEHE HEHEHE HEHE 


fixed part: 


tag field: 


variant part: 


SIDE SIDEA EDGE RADIUS 
BASE SIDEB 


Each column in the variant represents 
one alternative for the variant. 


If you preferred the tag field to be the 
first field instead of the fourth, you 
could define it as follows: 


COORDINATES = 
record 
S > SHAPE; 
X,Y > REAL; 
AREA REAL; 


case S : of 
{ variant part: } 


TRIANGLE: 

(SIDE REAL; 

BASE REAL); 
RECTANGLE: 

(SIDEA,SIDEB REAL); 
SQUARE: 

CEDGE REAL); 
CIRCLE: 

CRADIUS REAL) 

end; 


Record with Back Reference 
Tag Field 


If you preferred the tag field to be 
absent altogether you could define the 
record as follows: 


46 Pascal/VS Reference Manual 


EERE EEE EEE EE EEE EEE HEHEHE HEH 


COORDINATES = 
record 
X,Y REAL; 
AREA REAL; 


case SHAPE of 
{ variant part: } 


TRIANGLE: 

(SIDE REAL; 

BASE REAL); 
RECTANGLE: 

CSIDEA,SIDEB REAL); 
SQUARE: 

CEDGE REAL); 
CIRCLE: 

CRADIUS REAL} 

end; 


Record Variant with No Tag Field 


5.7.% Packed Records 
The fields itn a record are normally 
assigned offsets sequentially, padding 


where necessary for boundary alignment. 
In packed records, however, no such pad- 
ding is done. This may save storage 
within the record, but may degrade per- 
formance of the program. Fields of 
packed records may not be passed as var 
parameters to a routine. 


5.7.5 Offset Qualification of Fields 


Pascal/VS provides you a method of forc- 
ing the fields of a record to begin at a 
specified byte offset in the record. A 
field name may be follouwsd by a integer 
constant expression enclosed in paren- 
theses which represents the byte offset 
Within the record that the field is to 
represent. All fields so specified must 
be in consecutive order according to 
offsets. If the offset is not 
specified, the field will be assigned 
the next offset that is required for 
boundary alignment. If an offset spec- 
ification attempts to assign an 
incorrect boundary for a field and the 
record is not packed, a compile time 
error will be raised. 


As an example of offsat qualified fields 
within a record, considar a large con- 
trol block of 100 bytes, in which four 
fields at various offsets need to be 
referenced. 


t+eteetete te 


PEE ERE HEE HEHEHE EEE HE HEH HHH HH 


byte 
displacement information 
0 field A Cinteger) 
36 field B (8 chars) 
80 field C (4 flags) 
92 field D Cinteger) 


The control block might be represented 
in Pascal/VS as follows: 


type 
FLAGS = set of 
(FL, F2,F3,F4);3 


PADDING = packed arrayl1..4] of 
CHAR; 
CB = packed record 
A : INTEGER; 
BC36) = ALFA; 
C(80) = FLAGS; 
D($2) : INTEGER; 
> PADDING 
end; 
var 
BLOCK =: CB; 
A Record with Offset Qual\i fied 
Fields 
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5.8 THE SET TYPE 


set-type: 
a en ( set of —>{base-scalar-type}———____-____—_—_> 
> packed —> 


base-scalar-type: 


>{enumerated-scalar-type}——> 
—f—>ti d: scalar-type)————— > > 
>{subrange-scalar-type} > 


A variable whose type is a set may con- 
tain any combination of values taken 


from the base scalar _ type. A value is type 
either in the set or it is not in. CHARS = set of CHAR; 

DAYSOFMON = packed set of 1..31; 
Note: Pascal/VS sets can be used in many DAYSOFWEEK = set of MONDAY..FRIDAY; 
of the same ways as bit strings (which FLAGS = set of 
often tend to be machine dependent). CA,B,C,D,E,F,G,H); 
Each bit corresponds to one element of 
the base type and is set to a binary one Set Declarations 
when that element is a member of the 
set. For example, a set operation such 
as intersection (the operator is '*') is 
the same as taking the "boolean and!’ of The following table describes the oper- 
two bit strings. ations that apply to the variables of a 

set type. 


operation 


Set Operators 


- unary returns the complement of the operand 


binary compares for equality 
<> or 7 binary compares for inequality 
<= binary returns TRUE if first operand is subset of 


second operand 

>= binary returns TRUE if first operand is superset of 
second operand 

in binary TRUE if first operand (a scalar) is a member in 


the set represented by the second operand 


+ binary forms the union of two sets 
x binary forms the intersection of two sets 


- binary forms the difference between two sets 

&& binary forms an ‘exclusive’ union of two sets 

SIZEOFC(x) function returns the number of bytes required for a value 

of the type of x 

Set union produces a set which contains both operands. The in operator tests 
‘fall of the elements which are members of for membership of a scalar within a set; 
the two operands. Set intersection if the scalar is not a permissible value 
produces the set that contains only the of the set and checking is enabled, then 
elements common to both sets. Set dif- a runtime diagnostic will result. 
ference produces the set which includes 
all elements from the left operand The storage and alignment required for a 
except those elements which are members set variable is dependent on the scalar 
of the right operand. Set exclusive type on which the set is based. The 
union produces the set which contains amount of storage required for a packed 
all elements from the two operands set will be the minimum number of bytes 
except the elements which are common to | needed so that every member of the set 
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may be assigned to a unique bit. Given 


a set definition: 
type S = set of BASE; 


where BASE is a scalar type which is 
not a subrange 


the ordinal value of the last member M 
which can be contained on the set is: 


M == ORDCHIGHESTCBASE)) 
The following table indicates the map- 


ping of a set variable as a function of 
M. 


Range of Size in Alignment 
M Bytes 


<= 7 BYTE 
<= 15 HALFWORD 
<= 23 BYTE 
<= 31 4 FULLWORD 


32 <= <= 255) (M+7) BYTE 


Unpacked sets based upon integer (Cor 
subranges of integers) will occupy 32 
bytes. The maximum value of a member of 
a set of integer may not exceed 255. 


The storage jis the same for all unpacked 
sets of subranges of a base scalar type. 
The following illustrates this point. 


Given: 
type 

T = set of t; 

S = set of s; 
Where: 


t is a subrange of s. 


The types T and S have identical storage 
mappings. 
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5.9 THE FILE TYPE 


file-type: 


—> file of —>{type} 


All input and output in Pascal/VS use 
the file type. A file is a structure 
consisting of a sequence of components 
where each component is of the same 
type. Variables of this type reference 
the components with pointers called file 


pointers. A file pointer could be 
thought of as a pointer into an 


input/output buffer. 


The association of a file variable to an 
actual file of the system is implementa- 
tion dependent and will not be described 
in this manual. Refer to the Program- 
mer's Guide for this information. 


type 
TEXT = file of CHAR; 
LINE = file of 
packed array[1..80] of 
CHAR; 
PFILE = file of 
record 


NAME: packed 
arrayl1..251]1 of 
CHAR; 
PERSON_NO: INTEGER; 
DATE_EMPLOYED: DATE; 
WEEKLY_SALARY INTEGER 
end; 


File Declarations 


You access the file through predefined 


procedures and functions (see "I/s0 

Facilities” on page 103). They are: 

° GET (see “GET Procedure™ on page 
107) 

e PUT (see “PUT Procedure” on page 
108) 


e EOF (see “EOF Function" on page 109) 


° EQLN 
115) 


(see "EOLN function™ on page 
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RESET (see "RESET Procedure” on page 
103) 


REWRITE (see "REWRITE Procedure" on 
page 104) 


READ (see "READ and 
Files)" on page 109) 


READLN CTEXT 


WRITE (see “WRITE and 
Files)" on page 112) 


TERMIN (see 
page 104) 


WRITELN (TEXT 


"TERMIN Procedure” on 


TERMOUT (see "TERMOUT Procedure” on 
page 105) 


PDSIN (see "PDSIN Procedure” on page 
105) 


PDSOUT (see “PDSOUT Procedure" on 
page 106) 

UPDATE (see “UPDATE Procedure" on 
page 106) 

SEEK (see "SEEK Procedure” on page 
108) 

COLS (see "COLS Function" on page 
116) 

PAGE (see "PAGE Procedure” on page 
115) 


CLOSE (see "CLOSE Procedure" on page 
107) 


OUTPUT and INPUT are predefined TEXT 


files. 


Pascal/VS enforces the following 


restrictions on the file type: 


1. 


A file may be passed by var or 
passed by const, but never by value 
to a procedure or function. 


A file may not be contained within a 
file. 


c 


PRR EREEREHREE EEE HEHEHE EE HEHEHE HEHEHE HH HH Het 
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++ 


5.10 PREDEFINED STRUCTURE TYPES 


5.10.1 The Type STRING 


string-type: 


The type STRING is defined as a 
"packed arrayl[1..n] of CHAR’ whose 
length varies at execution time up to a 
compile time specified maximum. The 
length of the array is obtained during 
execution by the LENGTH function (see 
"LENGTH Function" on paga 137). The 
length is managed implicitly by the 
operators and functions which apply to 
STRINGS. The maximum length of the 
array is obtained during execution by 
the MAXLENGTH function (see "MAXLENGTH 
Function" on page 137). The length of a 
STRING variable is determined when the 
variable is assigned. By definition, 
string constants belong to the type 
STRING. 


A STRING variable may be subscripted 
with an integer expression to reference 
individual characters. A subscript of 1 
will reference the first character. The 
subscript value must not be less than 1 
nor exceed the string'’s length. 


The constant expression which follows 
the STRING qualifier in the type defi- 
nition is the maximum length that the 
string may obtain and must be in the 
range of 'l .. 32767'. 


Any variable of a STRING type is compat- 
ible with any other variable of a STRING 
type; that is, the maximum length field 
of a type definition has no bearing in 
type compatibility tests. 


Implicit conversion is performed when 
assigning a STRING to a variable Whose 
type is ‘packed array[1l..n] of CHAR’. 
All other conversion must be done 
explicitly. 


HERE EEREHE ERE EREERE RHEE EEK FEE EEE HEHEHE EHH 
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Thea assignment of one string to another 
may cause a run time error if the actual 
length of the source string is greater 
then the maximum length of the target. 
Pascal/VS will never truncate implicit- 
ly. 


function GETCHAR( 


const 5$ STRING; 
IDX INTEGER) CHAR; 

begin 

{ Subscripted string variable } 

GETCHAR := SCIDX] 
end; 

var 

$1: STRING(10); 


$2: STRING(5); 
C: CHAR; 
begin 
S1 := "MESSAGE:'; 
C i= GETCHAR(S1,4);3 
{ C assigned 'S' } 
$2 := 'FIVE'; 
C += GETCHAR(S2,2);3 
{ C assigned 'I'* } 
end; 


Usage of STRING Variables 


The following table describes the oper- 
ations and predefined functions that 
apply to the variables of type STRING. 
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operation 
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MAXLENGT 
LBOUND 
HBOUND 
SUBSTR 
DELETE 
TRIM 
LTRIM 
COMPRESS 
INDEX 
SIZEOF(x 
READSTR 
WRITESTR 


binary 
binary 
binary 
binary 
binary 
binary 
binary 
function 
H function 
function 
function 
function 
function 
function 
function 
function 
function 
) function 


procedure 


procedure 


STRING 


compares for 
compares for 
compares for 
compares for 
compares for 
compares for 


equality* 

inequality 

left less than right+ 

left less than or equal to rightt+x 
left greater than or equal to right+* 
left greater than right+x 


catenates the operands 
returns the length of the STRING 

(see "LENGTH Function™ on page 137). 
returns the declared length of a STRING 

(see "MAXLENGTH Function" on page 137). 
returns the value 1, STRINGS always have a lower 
bound of one (see "LBOUND Function" on page 124). 
returns the declared maximum number of elements of 
the string (see "HBOUND Function" on page 124). 
returns a specified portion of a STRING 

(see "SUBSTR Function” on page 138). 
returns a STRING with a portion removed 

(see "DELETE Function" on page 138). 
returns a STRING with trailing blanks removed 

Csee "TRIM Function" on page 139). 
returns a STRING with leading blanks removed 


(see "LTRIM 


Function™ on page 139). 


returns a STRING with multiple blanks removed 
Csee "COMPRESS Function” on page 1490). 

locates a STRING in another STRING 
Csee "INDEX Function” on page 140). 

returns the number of bytes required for a value 
of the type of x 

converts a STRING to values by assigning variables 
(see "READSTR"” on page 142). 

produces a STRING by converting the internal 
values of a list of expressions 
Csee "WRITESTR"™ on page 142). 


If two STRINGs being compared are of different lengths, the 
is assumed to be padded with blanks on the right 
until the lengths match. 


shorter 


Relative magnitude of two strings 


sequence 


OZPAmMvE 471M 


of EBCDIC. 


relational 
operations 


CHAR 
packed 
arrayll..n] of 
CHAR 


STRING 


STRING Conversions with Relational Operators 


RIGHT 


CHAR STRING 
allowed not permitted use STR'on 
the CHAR 
not permitted okay if the use STR on 
types are the array 
compatible 
use STR on use STR on allowed 


the CHAR 
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is based upon the collating 


OPERAND 
packed 
arrayll..n] of 


the array 


HEE EEEEEE EEE EEE HEHEHE HEHEHE HH 


STRING Conversions on Assignment 


assignment 


packed 
arrayl1..n] of 
CHAR 


STRING 


allowed 


not permitted 


use STR to 
convert CHAR 
to a STRING 


packed 
arrayl[1..nl] of 
CHAR STRING 


not permitted use string 
indexing to 
obtain char 


okay if the okay, STRING is 

types are converted. If 

compatible truncation is 
required, then 


an error results. 


use STR to allowed 
convert array 
to a STRING 
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5.10.2 The Type ALFA 


The standard type ALFA is defined as: 


const 
ALFALEN = 8; 


type 
ALFA = packed 
arrayll..ALFALEN] of 
CHAR; 


Any "packed arrayl1..n] of CHAR’, 
including ALFA, may be converted to type 
STRING by the predefined function STR. 
The following table describes the oper- 
ations and predefined functions that 
apply to the variables of the predefined 
type ALFA. 


t+eteeteete 


ALFA 


binary compares 
binary compares 
binary compares 
binary compares 
binary compares 
binary compares 
function converts 


for 
for 
for 
for 
for 
for 
the 


equality 
Inequality 
left less than right 


left less than or equal to right 
left greater than or equal to right 
left greater than right 

ALFA to a STRING 


SIZEOF(x) function returns the number of bytes required for a value 
of the type of an ALFA, which is always 8 
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5.10.3 The Type ALPHA 


The standard type ALPHA is defined as: 


const 
ALPHALEN = 


type 
ALPHA = pa 


16; 


cked 
arrayfl..ALPHALEN] of 
CHAR; 


Any ‘packed arrayl1l..n] of CHAR’, 
including ALPHA, may be converted to 
type STRING by the predefined function 
STR. The following table describes the 
operations and predefined functions 
that apply to the variables of the pre- 
defined type ALPHA. 


+++ eee 


ALPHA 


SIZEOF(x) 


binary compares 
binary compares 
binary compares 
binary compares 
binary compares 
binary compares 
function converts 


for 
for 
for 
for 
for 
for 
the 


equality 

inequality 

left less than right 

left less than or equal to right 
left greater than or equal to right 
left greater than right 

ALPHA to a STRING 


function returns the number of bytes required for a value 
of the type of an ALPHA, which is always 16 
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5.10.4 The Type TEXT 


The standard type TEXT is defined as: 


type 


TEXT = file of CHAR; 


In addition to the predefined procedures 
to do input and output, Pascal/VS 
defines several procedures which oper- 


ate only on files of type TEXT. These 
procedures perform character to 
internal representation (CEBCDIC) con- 


versions and gives you some control over 
output field lengths. The predefined 
routines that may be used on TEXT files 
are: 

® GET ("GET Procedure" on page 107) 

e PUT C"PUT Procedure"™ on page 108) 

® EOF C"EOF Function" on page 109) 


° EOLN C"EOLN function” on page 115) 


e RESET ("RESET Procedure” on page 
103) 

® REWRITE C"REWRITE Procedure™ on 
page 104) 

° READ C"READ and READLN (TEXT Files)" 


on page 109) 


READLN C"READ and 
Files)" on page 109) 


READLN (TEXT 
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° WRITE C"WRITE and WRITELN 
Files)” on page 112) 


° WRITELN C"WRITE and WRITELN (TEXT 
Files)" on page 112) 


CTEXT 


° PAGE ("PAGE Procedure" on page 115) 


e CLOSE 
107) 


C"CLOSE Procedure™ on page 


° COLS ("COLS Function" on page 116) 


e PDSIN C"PDSIN Procedure" on page 
105) 

° PDSOUT C("PDSOUT Procedure" on page 
106) 

° TERMIN C"TERMIN Procedure” on page 
104) 

° TERMOUT C"TERMOUT Procedure” on 
page 105) 

° UPDATE C"UPDATE Procedure” on page 


106) 


Pascal/VS predefines two TEXT variables 
named OUTPUT and INPUT. You may use 
these files without declaring them in 
your program. 


C 


tee tee eeeteet 


5.11 THE POINTER TYPE 


pointer-type: 


—> a —>{id:type} 


Pascal/VS allows variables to be created 
during program execution under your 
explicit control. These variables, 
which are called dynamic variables, are 
generated by the predefined procedure 
NEW. NEW creates a new variable of the 
appropriate type and assigns its address 
to the argument of NEW. You must 
explicitly deallocate a dynamic vari- 
able; the predefined procedures DISPOSE 
and RELEASE are provided for this pur- 
pose. 


Dynamic variables are created in an area 
of storage called a heap. A new heap is 
created with the MARK predefined proce- 
dure; a heap is released with the 
RELEASE predefined procedure. A initial 
heap is allocated by Pascal/VS. All 
variables that were allocated in a heap 
are deallocated when the heap is 
released. An attempt to use a dynamic 
variable that has been deallocated (ei- 
ther via DISPOSE or RELEASE) is an 
error. 


Pascal/VS pointers are constrained to 
point to a particular type. This means 
that on declaration of a pointer, you 
must specify the type of the dynamic 
variable that will be generated by NEW 
or referenced. 


Pascal/VS defines the named constant nil 
as the value of a pointer which does not 
point to any dynamic variable Cempty 
pointer). Nil is type compatible to 
every pointer type. 


The only operators that can be applied 
to variables of pointer type are the 


test for equality and inequality. The 
predefined function ORD may be applied 
to a pointer variable; the result of the 
function is an integer value which is 
equal to the address of the dynamic var- 
iable referenced by the pointer. There 
is no function in Pascal/VS to convert 
an integer into a pointer. 


type 
PTR = a2 ELEMENT; 
ELEMENT = record 


PARENT PTR; 

CHILD =: PTR; 

SIBLING: PTR 
end; 


A Pointer Declaration 


This example illustrates a data types 
that can be used to build a tree. With 
this structure the parent node contains 
a pointer to the eldest child, the 
eldest points to the next sibling who 
points to the next, and so forth. 


In the above example type ELEMENT was 
used before it was declared. Referenc-— 
ing an identifier prior to its declara- 
tion is generally not permitted in 
Pascal/VS. However, a type identifier 
which is used as the base type to a 
pointer declaration is an exception to 
this rule. 
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5.12 THE TYPE STRINGPTR 


Variables of type STRING have’ two 
lengths associated with them: 


° The current length which defines the 
number of characters in the string 
at any instant in time. 


° The maximum length which defines the 
storage required for the string. 


The predefined type STRINGPTR defines a 
pointer to a string which has no "maxi- 
mum length" associated with it until 
execution time. The procedure NEW is 
used to allocate storage for this type 
of pointer; an integer expression is 
passed to the procedure that specifies 
the maximum length of the allocated 
string. See "NEW Procedure" on page 
119, 
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var 
P = STRINGPTR; 
Q > STRINGPTR; 
I : 0..32767; 
begin 
I := 59; 


NEWCP,CI+1) div 2); 
WRITELN€ MAXLENGTHCP) ); 
{writes '30' to output } 
NEWCQ@,5); 
Qa == '1234567890'; 
{causes a truncation } 
{error at execution } 
end 


Using the Predefined type STRINGPTR 


Cc 


5.13 STORAGE, PACKING, AND ALIGNMENT 


For each variable declared with a par- 
ticular type, Pascal/VS allocates a spe- 
cific amount of storage on a specific 
alignment boundary. The Programmer's 
Guide describes implementation 
requirements and defaults. 


Pascal/VS provides the packed record 
feature in which all boundary alignment 


is suppressed. Fields of a= packed 
record are allocated on the next byte, 
ignoring alignment requirements. 


Packed data occupies less space and is 
more compact but may increase the exe- 
cution time of the program. Moreover, a 
field of a packed record or an element 
of a packed array may not be passed by 
read/write reference (var) to a routine. 
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6.0 ROUTINES 


routine-dcl: 


——_——> {procedure-headi ng} ——_- 
7 Funct ion-heading) ——— J 
—— . < 


——>{directive}——> ; 


L< 


>{declaration}——> 


>{compound-statement}—> ; 


procedure-heading: 


——> procedure —>{id}——>({formal-parameters} 


function-heading: 
—> function —>{id}—>({formal-parameters}—> : —>{id:type} 
directive: 

FORWARD 

EXTERNAL 

FORTRAN 


formal-parameters: 
> ¢ >{formal} >) > 
| Le ae | 
> 


formal: 


> var > : — >{id:type} 
| [---> const --> ; 
> 


> {procedure-heading} 


>{function-heading} 


There are two categories of routines: flexibility of the language: functions 
procedures and functions. Procedures add to your ability to express data 
should be thought of as adding new transformation in expressions. 
statements to the language. These new 

statements effectively increase’ the Routines can return data to the caller 
language to a superset language contain- by altering the var parameters or by 
ing statements tailored to your assigning to variables that are common 
specialized needs. Functions should to both the invoker and the invoked rou- 
also be thought of as increasing the tine. In addition, functions also 
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return a value to the _ invoker 


return from the function. 


upon 


6.1 ROUTINE DECLARATION 


Routines must be declared prior to their 
use. The routine declaration consists 
of the routine heading, declarations and 
one compound statement. 


The heading defines the name of the rou- 
tine and binds the formal parameters to 
the routine. The heading of a function 
declaration also binds the function name 
to the type of value returned by the 
function. Formal parameters’ specify 
data that is to be passed to the routine 
when it is invoked. The declarations 
are described in chapter 4. The com- 
pound statement will be executed when 
the routine is invoked. 


6.2 ROUTINE PARAMETERS 


Formal parameters are bound to the rou- 
tine when the routine is defined. The 
formal parameters define what kind of 
data may be passed to the routine when 
it is invoked. These parameters also 
specify how the data will be passed. 


When the routine is invoked, a parameter 
list is built. At the point of invoca- 
tion the parameters are called the actu- 


al parameters. 


Pascal/VS permits parameters 
passed in following ways: 


to be 


e pass by value 

° pass by read/write reference (var) 

e pass by read only reference (const) 

° pass by conformant string (var or 
const) 

° formal routine parameter 


6.2.1 Pass by Value Parameters 


Pass by value parameters can be thought 
of as local variables that are initial- 
ized by the caller. The called routine 
may change the value of this kind of 
parameter but the change is never 
reflected back to the caller. Any 
expression, variable or constant (ex- 
cept of file type) may be passed with 
this mechanism. 
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6.2.2 Pass by Var Parameters 


Pass by Var (variable) is also called 
pass by reference. Parameters that are 
passed by var reflect modifications to 
the parameters back to the caller. 
Therefore you may use this’ parameter 
type as both an input and output parame- 
ter. The use of the var symbol in a 
parameter indicates that the parameter 
is to be passed by read/write reference. 
Only variables may be passed by this 


mechanism; expressions and constants 
may not. Also, fields of a packed 


record or elements of a packed array may 
not be passed as var parameters. 


6.2.3 Pass by Const Parameters 


Parameters passed by const may not be 
altered by the called routine. Also you 
should not modify the actual parameter 
value while the call to the routine has 
not yet completed. If you attempt to 
alter the actual parameter while it is 
being passed by const, the result is not 
defined. This method could be called 
pass by read only reference. The param- 
eters appear to be constants from the 
called routine'ts) point of vien. Any 
expression, variable or constant may be 
passed by const (fields of a packed 
record and elements of a packed array 
may also be passed). The use of the 
"const" reserved word in a parameter 
indicates that the parameter is to be 
passed by this mechanism. With parame- 
ters which are structures (such as 
strings), passing by const is usually 
more efficient than passing by value. 


6.2.% Formal Routine Parameters 


A procedure or function may be passed to 
a routine as a formal parameter. Within 
the called routine the formal parameter 
may be used as if it were a procedure or 
function. 


6.2.5 Conformant String Parameters 


It is often desirable to call a proce- 
dure or function and pass in a string 
whose declared length does not match 
that of the formal parameter. The 
conformant string parameter is used for 
this purpose. 


The conformant string parameter is a 
pass by const or pass by Var parameter 
with a type specified as STRING without 
a length qualifier. Strings of any 
declared length will conform to such a 
parameter. You can use the MAXLENGTH 


C 


t+eeteet 


K 


parameter. You can use the MAXLENGTH 
function to obtain the declared length. 
See "MAXLENGTH Function" on page 137. 


procedure TRANSLATE 
(var S > STRING; 
const TABLE: STRING); 
var 
I > 0..32767; 
J > 1... QRDCHIGHESTCCHAR) +1; 
begin 
for I := 1 to LENGTH(S) do 
begin 
J t= ORDCSEIIJ)+1; 
if J > LENGTHCTABLE) then 
STI] := ' ' 
else 
SCI] == TABLELJI]; 
end; 
end; 


Example of a Conformant Strings 


6.3 ROUTINE COMPOSITION 


There are six kinds of routines: 


° internal 
° FORWARD 

° EXTERNAL 
° FORTRAN 

° REENTRANT 
° MAIN 


The directive used to identify each kind 


of declaration is shown in upper case 
above. 

Note: 

° A routine must be declared before it 


can be referenced. This allows the 
compiler to assure the validity of a 
call by checking parameter compat~ 
ibility. 


6.3.1 Internal Routines 


An internal routine may be invoked only 
from within the lexical scope that con- 
tains the routine definition. 


6.3.2 FORWARD Routines 


A routine declared FORWARD is the means 
by which you can declare the routine 
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heading before daclaring the declara-~ 
tions and compound statement. The rou- 
tine heading is declared followed by the 
symbol '"FORWARD’. This allows you to 
have a call to a routine prior to defin- 
ing the routine's body. If two routines 
are to be mutually recursive and are at 
the same nesting level, one of the rou- 
tines must be declared FORWARD. 


To declare the body of the FORWARD rou- 
tine, you declare the routine leaving 
off the formal parameter definition. 


6.3.3 EXTERNAL Routinas 


An EXTERNAL routine is a procedure or 
function that can be invoked from out- 
side of its lexical scope (such as, 
another module). The EXTERNAL directive 


is used to specify the heading of sucha 


routine. While many modules may call an 
EXTERNAL routine, only one module will 
actually contain the body of the 
routine. The formal parameters defined 


in the EXTERNAL routine declaration must 
match those in the module where the rou- 
tine is defined. An EXTERNAL routine 
declaration may refer to a Pascal/VS 
routine which is located later in the 
same module or located in another module 
or it may refer to code produced by oth- 
er means (such as assembler code). 


The following example illustrates two 
modules (a program module and a segment 
module) that share a single EXTERNAL 
routine. Both modules may invoke the 
routine but only one contains the defi- 
nition of the routine. 


program TEST; 


function SQUAREC(X 
EXTERNAL; 
begin 
WRITELNC 
end . 


REAL) REAL; 


SQUARE(44) ); 


SEGMENT S; 
function SQUARECX 
EXTERNAL; 
function SQUARE; 
begin 
SQUARE := X ® X 
end; 


REAL) REAL; 


Example of an EXTERNAL Function 


The body of an EXTERNAL routine may only 
be defined in the outermost nesting lev- 
el of a module; that is, it must not be 


+ nested within another routine. 
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6.3.4 FORTRAN Routines 
A FORTRAN routine is similiar to an 
EXTERNAL routine in that it specifies a 


routine that is defined outside the mod- 


ule being compiled. In addition, it 
specifies that the routine is a FORTRAN 
subprogram and therefore the con- 


ventions of FORTRAN are to be used. A 
FORTRAN routine is never defined within 
a Pascal/VS module. If you pass a 
literal constant to a FORTRAN subprogram 
by CONST, then you must assure that the 
FORTRAN subprogram does not alter the 
contents of parameter. In order to meet 


the requirements of FORTRAN you must 

obey the following restrictions: 

e All parameters may be only var or 
const parameters. 

° If the routine is a function, it may 
only return a scalar result (this 
includes REAL and SHORTREAL). 

° Routines may not be passed. 

° Multi-dimensional arrays are not 
remapped to conform to FORTRAN 
indexing, that is, an element of an 


in Pascal will be ele- 
in FORTRAN. 


array ALln,m] 
ment ACm,n)} 


6.3.5 MAIN Procedures 


The MAIN directive is used to identify a 
Pascal procedure that may be invoked as 
if it were a main program. It is some- 
times desirable to invoke a Pascal/VS 
procedure from a non-Pascal routine, for 
example FORTRAN or assembler language. 
In this case it is necessary for certain 
initializing operations to be performed 
prior to actually executing the Pascal 
procedure. The MAIN directive specifies 
that these actions are to be performed. 


There are several restrictions on the 
use of the MAIN directive. 


° only procedures may have the MAIN 
directive; 
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is declared to be 
its body located in 


° a procedure that 
MAIN must have 
the same module; 


° the execution of a MAIN procedure 
will not be reentrant; 


) the MAIN directive 
applied to procedures 
most nesting level. 


may only be 
in the outer- 


Consult Pascal/VS Programmer's Guide, 
order number SH20-6162 for further 
details on using MAIN. 


6.3.6 REENTRANT Procedures 


The REENTRANT directive is used to iden- 
tify a Pascal procedure that may be 
invoked as if it were a main program 
like a MAIN procedure. In addition, 
invocations of these procedures will be 
reentrant. 


In order to achieve this addition fea- 


ture, some help is required from you. 
The first parameter of a procedure 
defined with the REENTRANT directive 
must be an INTEGER passed by var. Prior 
to the very first call from a 
non-Pascal/VS program you must initial- 
ize this variable to zero (0). On 


subsequent calls you must pass the same 
variable back unaltered (Pascal/VS sets 
the variable on the first call and needs 
that value on the subsequent 
invocations). You need not call the 
same procedure each time, you may call 
different procedures - just continue to 
pass this variable on each call. 


Guide, 
further 


Consult Pascal/VS Programmer's 
order number SH20-6162 for 
details on using REENTRARNT. 


Note: All Pascal/VS internal procedures 
and functions are reentrant. The REEN- 


TRANT directive is used to specify a 
procedure that is both reentrant and 
invokable from outside the Pascal/VS 


execution environment. 


C 


6.3.7 Examples of Routines 


static 
Cc: CHAR; 


function GETCHAR: CHAR; 
EXTERNAL ; 


procedure EXPR(var VAL: INTEGER); 
EXTERNAL; 


procedure FACTOR(var VAL: INTEGER); 
EXTERNAL; 
procecure FACTOR; 
begin 
C == GETCHAR; 
if c = 'C€' then 


begin 
C == GETCHAR; 
EXPRCVAL) 
end 
else 
end; 


procedure EXPR {var VAL: INTEGER}; 
begin 
FACTORCVAL); 


end; 


Examples of Routine Declarations 


function CHARFOUND 
(const S: STRING; 
C: CHAR): BOOLEAN; 
var I: 1..255; 


for I := 1 to LENGTH(S) do 
if SCI] = ¢ than 
begin 
CHARFOUND := TRUE; 
return 
end; 
CHARFOUND := FALSE; 
end; 


Example of Const Parameter 


6.4 FUNCTION RESULTS 


A value is returned from a function by 
assigning the value to the name of the 
function prior to leaving the function. 
This value is inserted within the 


expression at the point of the call. 
The value must be assignment conformable 
to the type of the function. 


If the function name jis used on the 
right side of an assignment, it will be 
interpreted as a recursive call. 


function FACTORIAL 
(CX: INTEGER): INTEGER; 


begin 
if X <= 1 then 
FACTORIAL := 1 
else 


FACTORIAL := X * FACTORIAL(X-1) 
end; 


Example of Recursive Function 


Standard Pascal permits a function to 
return only a scalar value. Pascal/VS 
provides for a function to return any 
type except a file. This means that you 
can write a Pascal/VS function that 
returns a record structure as its result 
€such as you might wish to do for imple- 
menting a complex arithmetic library). 
A function may also return a string, 
however you must specify the maximum 
length of the string to be returned. 


type 
COMPLEX = record 
R,I = REAL 
end 


function CADD 

(const A,B =: COMPLEX) : COMPLEX; 

var 
C : COMPLEX; 

begin 
c.R 
C.J : 
CADD == ¢ 

end; 


tl ol 
> 
H 


Example of a Function Returning a Record 


6.5 PREDEFINED PROCEDURES AND FUNC~ 
TIONS 


Pascal/VS predefines a number of proce- 
dures and functions that you may find 
valuable. Details of the predefined 
procedures and functions are given in 
section titled "I/0 Facilities" on page 
103. 
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7.0  VARTABLES 


variable: 


—>{tid}—> 


> [ >{expr} > j 
~ hoes 


> . —>fid: field} 


> a 


Pascal/VS divides variables into five 


classes depending on how they are 

declared: 

° automatic (var variables) 

° dynamic Cpointer-qualified vari-~ 
ables) 

° static (static variables) 

) external (def/ref variables) 

° parameter (declared on aéeé routine 


declaration) 


A variable may be referenced in several 
ways depending on the variable's type. 
You may always refer to the entire vari- 
able by specifying its name. You may 
refer to a component of a structured 
variable by using the syntax shown in 
the syntax diagram. 


If you simply specify the name of the 
variable, then you are referring to the 
entire variable. If that variable is 
declared as an array, then you are 
referring to the entire array. You may 
assign an entire array. Similarly, you 
may also deal with record and set vari- 
ables as units. 


subscripted variable 


field reference 


pointer reference 


var 
LINE1, 
LINE2 packed 
arrayl 1..80 ] of 
CHAR; 

{ assign all 80 characters } 
{ of the array 
LINE1L := LINE2; 


Using Variables in their entirety 


7.1 SUBSCRIPTED VARIABLE 


An element of an array is selected by 
placing an indexing expression enclosed 
within square brackets, after the name 
of the array. The indexing expression 
must be of the same type as declared on 
the corresponding array index defi- 
nition. 


A multi-dimensional array may be refer- 
enced as an array of arrays. For exam- 
ple, let variable A be declared as 
follows: 


A: array [a..b,c..d] of T 
As explained in "The Array Type" on page 
42, this declaration is exactly equiv- 
alent to: 


A: array [a..b] of 
array Ec..d] of T 
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A reference of the form ALI] would be a 
variable of type: 


array [c..d] of T 


and would represent a single row in 
array A. A reference of the form 
ACIIJCJ] would be a variable of type T 
and would represent the Jth element of 
the Ith row of array A. This latter 
reference would customarily be abbrevi- 
ated as 


A[I,J] 


Any array reference with two or more 
subscript indicies can be abbreviated by 
writing the subscripts in a comma sepa- 
rated list. That is, AL[TIJ[J]... could 
be written as ALI,J,...]. 


If the "%CHECK SUBSCRIPT' option is ena- 
bled, the index expression will be 
checked at execution time to make sure 
its value does not lie outside of the 
subscript range of the array. An exe- 
cution time error diagnostic will occur 
if the value lies outside of the pre- 
scribed range. (For a description of 
the CHECK feature see "The “CHECK State- 
ment" on page 148.) 


A variable of type STRING may be sub- 
scripted with an integer expression to 
reference individual characters. The 
value of the subscript must not be less 
than 1 or greater than the length of the 
string. String subscripts are checked 
at run time if %*CHECK SUBSCRIPT is ena- 
bled. 


A[12] 

ALT] 

AC I+J J 

DECKL CARD-FIFTY ] 

MATRIXE ROWLI], COLUMNIJ] ] 


Subscripted Variables 


7.2 FIELD REFERENCING 


A field of a record is selected by fol- 
lowing the record variable by a period 
and by the name of the field to be ref- 
erenced. 
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var 
PERSON: 
record 
FIRST_NAME, 
LAST_NAME: STRING(15); 
end; 
DATE: 
record 
DAY: 1..31;3 
MONTH: 1..12; 
YEAR: 1900..2000 
end; 
DECK: 
arrayl1..52] of 
record 
CARD: 1..13;3 
SUIT: 
(SPADE, HEART, 
DIAMOND, CLUB) 
end; 
PERSON.LAST_NAME == *SMITH'; 
DATE.YEAR := 1978; 


DECKE I }.CARD := 2; 
DECK[E I ].SUIT == SPADE; 


Field Referencing Examples 


7.3 POINTER REFERENCING 


A dynamic variable is created by the 
predefined procedure NEW or by an imple- 
mentation provided routine which 
assigns an address to a pointer 
variable. You may refer either to the 
pointer or to the dynamic variable; ref- 
erencing the dynamic variable requires 
using the pointer notation. 


For example 
var P : @ R35 


P refers to the pointer 
Pa refers to the dynamic variable 


If the '"%CHECK POINTER’ option is ena- 
bled, any attempt to reference a pointer 
that has not been assigned the address 
of an allocated variable will result in 
an execution time error diagnostic. 
(For a description of the CHECK feature 
see "The “CHECK Statement" on page 148.) 


If the "'%CHECK POINTER' option is ena- 
bled, any attempt to reference a file 
pointer which has no value will result 
in an execution time error diagnostic. 
(For a description of the CHECK feature 
see "The %CHECK Statement" on page 146.) 


var 
INPUT > TEXT; 
OUTPUT > TEXT; 
LINE1 : array [1 


{ scan off blanks 

{ from a file of CHAR 

GETCINPUT); 

While INPUTa = * * do 
GETCINPUT); 


--80] of CHAR; 


ww 


{ transfer a line to the } 


{ OUTPUT file 
for I := 1 to 80 do 
begin 


OUTPUTa == LINE1LII; 


PUTCOUTPUT > 
end; 


File Referencing Examples 
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8.0 EXPRESSIONS 


constant-expr: 
expr: 


—->{simple-expression} 
>{simple-expression}——> 


simple-expression: 


term: 


>{factor} 


< 
factor: 
>{function-call} 


>{variable} 


> {set-constructor}———_____ > 
> € —>{expr}—> >) —————— ——- 
--->{structured-constant} ------------- 9 oo > 
> not ——> {factor }———— > 


>{unsigned-constant} 


the not operator (highest) 

the multiplying operators 

the adding operators 

the relational operators (lowest) 


Pascal/VS expressions are similar in 
function and form to expressions found 
in other high level programming lan- 
guages. Expressions permit you to com- 


bine data according to specific 

computational rules. The type of compu- An expression is evaluated by performing 
tation to be performed is directed by the operators of highest precedence 
operators which are grouped into four first, operators of the next precedence 
classes according to precedence: second and so forth. Operators of equal 


precedence are performed in a left to 
right order. If an operator has an 
operand which is a parenthesized sub- 
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expression, the 
evaluated 
operator. 


sub-expression is 
prior to applying the 


The operands of an expression may be 
evaluated in either order; that is, you 
should not expect the left operand of 
dyadic operator to be evaluated before 
the right operand. If either operand 
changes a global variable through a 
function call, and if the other operand 
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uses that value, then the value used is 
not specified to be the updated value. 
The only exception is in boolean expres- 
sions involving the logical operations 
of ‘and’ (&) and '‘or' (|); for these 
operations the right operand will not be 
evaluated if the result can be deter- 
mined from the left operand. See 
"Boolean Expressions" on page 77. 
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Examples of Expressions 


Assume the following declarations: 


const 
ACME = 'acme'; 


type 
COLOR 
SHADE 
DAYS 
MONTHS 


COLOR; 
SHADE; 


BOOLEAN; 


+ MONTHS 


INTEGER; 


ODDCIXJ) 
not BOOL 
COLOR( 1 ) 


J 
ie ae 


& ODD(TI) 


a00000'X 
C BLUE ] 


expression: 


I+ J 
RED = A_COLOR 
RED In A_SET 


CRED, YELLOW, 
set of COLOR; 
CSUN, MON, 
(JAN, FEB, 
JUL, AUG, 


BLUE); 


TUES, WED, THUR, FRI, SAT); 
APR, MAY, JUN, 
OCT, NOV, DEC); 


variable 

unsigned constant 
parenthetical expression 
set of one element 

empty set 

function call 

complement expression 
scalar type converter 
constant reference 


factor 

multiplication 

integer division 
catenation 

set intersection 
logical and on integers 
boolean and 


term 

addition 

logical or on integers 
set union 

unary minus on an integer 


simple expression 
relational operations 
test for set inclusion 


Expressions 
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8.1 OPERATORS 


Multiplying Operators 


x multiplication INTEGER INTEGER 
REAL REAL 
REAL, INTEGER REAL 
SHORTREAL SHORTREAL 


SHORTREAL, INTEGER 
SHORTREAL, REAL 


SHORTREAL 
REAL 


real division INTEGER 


REAL 


REAL REAL 
REAL, INTEGER REAL 
SHORTREAL SHCRTREAL 


SHORTREAL, INTEGER 
SHORTREAL, REAL 


SHORTREAL 
REAL 


div integer division INTEGER INTEGER 


mod modulo INTEGER INTEGER 


& Cand) boolean and BOOLEAN BOOLEAN 


& Cand) logical and INTEGER INTEGER 


* 


<< 


set intersection set of t set of t 


string catenation STRING STRING 


logical left shift |INTEGER INTEGER 


>> logical right shift] INTEGER INTEGER 


Adding Operators 


+ addition INTEGER, INTEGER INTEGER 
REAL, REAL REAL 
REAL, INTEGER REAL 
SHORTREAL, SHORTREAL SHORTREAL 
SHORTREAL, INTEGER SHORTREAL 
SHORTREAL, REAL REAL 


INTEGER, INTEGER 
REAL, REAL 

REAL, INTEGER 
SHORTREAL, SHORTREAL 
SHORTREAL, INTEGER 
SHORTREAL, REAL 


INTEGER 
REAL 
REAL 
SHORTREAL 
SHORTREAL 
REAL 


subtraction 


set difference set of t set of t 


| Cor) boolean or BOOLEAN BOOLEAN 
| Cor) logical or INTEGER INTEGER 
+ set union set of t sat of t 
&& Cxor) exclusive or INTEGER INTEGER 
&& (xor) *exclusive’ union set of t sat of t 
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The Not Operator 


boolean not 


logical one's 
complement 


set complement 


BOOLEAN BOOLEAN 
INTEGER INTEGER 


set of T sat of T 


Relational Operators 


compare equal 


compare not equal 


compare less than 
compare < or = 
subset 

compare greater 
compare > or = 
superset 


set membership 


any set, scalar type, BOOLEAN 
pointer or string 


any set, scalar typa, BOOLEAN 
pointer or string 


scalar type or string BOOLEAN 
scalar type, string BOOLEAN 
set of t¢ BOOLEAN 
scalar type, string BOOLEAN 
scalar type, string BOOLEAN 
set of t BOOLEAN 
t and set of BOOLEAN 


Expressions 


75 


TNL SN20-4446 (31 December 81) to SH20-6168-1 


HEE EEE EEE EEE EEE HEE HEHE HH Hee + 


tee eet 


8.2 CONSTANT EXPRESSIONS 


Constant expressions are expressions 
which can be evaluated by the compiler 
and replaced with a result at compile 
time. By its nature, a constant expres- 
sion may not contain a reference to a 
variable or to a user-defined function. 
Constant expressions may appear in con- 
stant declarations. 


The following predefined functions are 
permitted in constant expressions: 


Function Page 
ABS 132 
CHR 126 
HIGHEST 123 
LENGTH 137 
LOWEST 123 
MAX 130 
MAXLENGTH 137 
MIN 130 
ODD 132 
ORD 126 
PRED 131 
scalar conversion 

functions 127 
SIZEOF 125 
succ 131 
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constant 

expression type 
ORDC'A') INTEGER 
SUCCC(CHRC'FO'X)) CHAR 
256 div 2 INTEGER 


"TOKEN'| |STRCCHRCO)) STRING 
"g000'x | '0001'X INTEGER 
cro'..'9'] set of CHAR 
32768%2-1 INTEGER 


Examples of Constant Expressions 


8.3 BOOLEAN EXPRESSIONS 


You should recognize that Pascal assigns 
the operations of "&" Cand) and "|" a 
higher precedence than the relational 
operators. This means that the expres-— 
sion: 


A<B & C<D 
Will be evaluated as 


CA < CB&C)) < D 


Thus, it is advisable to use parenthesis 
when writing expressions of this sort. 


Pascal/VS will optimize the evaluation 
of BOOLEAN expressions involving ‘'&' 
Cand) and "|" (€or) such that the right 
operand of the expression will not be 
evaluated if the result of the operation 
can be determined by evaluating the left 
operand. For example, given that A, B, 
and C are boolean expressions and X is a 
boolean variable, the evaluation of 


X:=AoQrBorc 
would be performed as 


if A then 
X := TRUE 
else 
if B then 
X := TRUE 
else 
X := C 


The evaluation of 
X >= A and B and C 
would be performed as 
if -A then 
X := FALSE 
else 
if -B then 
X := FALSE 


X 2= C 


The evaluation of the expression will 
always be left to right. 


The following example demonstrates log- 
ic which depends on the conditional 
evaluation of the right operand of the 
"and" operator. 


type 
RECPTR = aREC; 
REC = record 
NAME: ALPHA; 
NEXT: RECPTR; 
end; 


var 
P : RECPTR; 
LNAME = ALPHA; 


begin 


while (P<>nil) and 
d CPQ.NAME <> LNAME) 
0 


P == P&.NEXT; 
end; 


Example of a BOOLEAN Expression 
that Depends on Order of Evaluation 


Notes: 


° If you use a function in the right 
operand of a boolean expression, 
then you must be aware that the 
function may not be evaluated. Fur- 
ther, you should note that relying 
on side-effects from functions is 
considered a bad programming prac- 
tice. 


° Not all Pascal compilers support 
this interpretation of BOOLEAN 
expressions. If you wish to assure 
portability between Pascal/VS and 
other Pascal implementations you 
should write the compound tests ina 
form that uses nested 
if-statements. 
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8.4 LOGICAL EXPRESSIONS 


Many of the integer operators provided 
in Pascal/V5S perform logical operations 
on their operands; that is, the operands 
are treated as unsigned strings of bina~ 
ry digits instead of signed arithmetic 
quantities. For example, if the integer 
value of -1l was used as an operand of a 
logical operation, it would be viewed as 
a string of binary digits with a 
hexadecimal value of 'FFFFFFFF'X. 


The logical operations are defined to 
apply to 32 bit values. Such an opera- 
tion on a subrange of an INTEGER could 
yield a result outside the subrange. 


The following operators perform logical 
operations on integer operands: 


e "&" Cand) performs a bit-wise and of 
two integers. 

° "|*® Cor) performs a bit-wise inclu- 
sive or. 

° "gat Cxor) performs ae bit-wise 


exclusive or. 


HEHEHE EE EEE EEE EEE EEE HEHEHE HE HEHEHE HHH 


"=" (not) performs a one's comple- 


ment of an integer. 


'"<<' shifts the left operand value 
left by the amount indicated in the 
right operand. Zeroes are shifted in 
from the right. 


">>" shifts the left operand value 
right by the amount indicated in the 
right operand. Zeroes are shifted in 
from the left. 


257 & 'FF'X yields 1 

24418 vields 14 

4 << 2 vields 16 

-4 << 1 yields -8 

8 >> 1 yields 4 

-8 >> 1 yields "7 FFFFFFC'X 
"FFFFY*X >> 3 yields "1FFFTYX 

-1 & "FFX yields "FE'X 

-0 yields -l 

"FFX && 8 yields "F7'X 


Examples of Logical Operations 
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Cc 


8.5 FUNCTION CALL 


function-call? 


—> {id: function}—> {actual-parameters} 


actual~parameters: 


>{expr} > ) 
es 


A function returns a value to the 
invoker. A call to a function passes 
the actual parameters to the correspon- 
ding formal parameters. Each actual 
parameter must be of a type that is 
conformable to the corresponding formal 
parameter. You may not pass a field of 
a packed record as a var parameter. You 
also may not pass an element of a packed 
array as a var parameter. 


The parenthesis list may be dropped if 
the function requires no parameters. 
However, if you wish to draw attention 
to a function call that has no parame- 
ters and make it appear different froma 
variable reference, you can follow the 
function name with an empty set of 
parenthesis. 


var A,B,C: INTEGER; 
function SUM 
CA,B:? INTEGER): INTEGER; 
begin 
SUM := A+B 
end; 
begin 
C i= SUMCA,B) * 2 
end; 


Function Example 
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8.6 SCALAR CONVERSIONS 


Pascal/VS predefines the function ORD 
that converts any scalar value into an 
integer. The scalar conversion func 
tions convert an integer into a speci- 
fied scalar type. An integer expression 
is converted to another scalar type by 
enclosing the expression within paren- 
theses and prefixing it with the type 
identifier of the scalar type. If the 
operand is not in the range O .. 
ORDCHIGHESTCscalar type)), then a sub- 
range error will result. The conversion 
is performed in such a way as to be the 
inverse of the ORD function. See 
"Scalar Conversion" on page 126. 


The definition of any type identifier 


that specifies a scalar type (enumerated 
scalars or subranges) forms a scalar 
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conversion function. By definition, the 
expression CHAR(x) is equivalent to 
CHR(x); INTEGER(x) is equivalent to x; 
and ORD(type(x)) is equivalent to x. 


type 
WEEK = 
(SUN,MON, TUE,WED, THU, FRI,SAT)3 
var 
DAY: WEEK; 
{The following assigns SAT to DAY} 
DAY := WEEK(6); 


Scalar Conversion Functions 


J 


8.7 SET CONSTRUCTOR 


Syntax: 


set-contructor: 


— [ >{expr} > ) —— 
> .. —>{expr}—> 
[_ ,< 
> 


A set constructor is used to compute a 
value of a set type within an 


expression. type 
DAYS = seat of 
The set constructor is list of comma (SUN,MON, TUES,WED, THU, FRI,SAT 23 
separated expressions or expression CHARSET= set of CHAR; 
pairs within square brackets. An 
expression pair designates that all val- var 
ues from the first expression through WORKDAYS, 
the last expression are to be included WEEKEND: DAYS 


in the resulting set; the evaluation of NONLETTERS: CHARSET; 
the first expression must produce a val- . 
ue less than or equal to the value . 
computed by the second expression. Each WORKDAYS := (MON. .FRI]; 
expression must be of the same type; WEEKEND == -— WORKDAYS; 
this type becomes the base scalar type . 
of the set. If the set specifies INTE- . 
GER valued expressions, then there is an NONLETTERS := 
implementation restriction of 256 ele- ~ [Tfat..t2t','at..'2'); 
ments permitted in the set. 
| Set Constructor 
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9.0 STATEMENTS 


statement: 


>{label}——> : —— 7 


---> fassert-statement} 
> {assignment-statement} 
>{case-statement} 
> {compound-statement} 

~--> {continue-statement} 
>fempty-statement} 
>{for-statement} 
>{goto-statement} 
>{if-statement} 

---> {leave-statement} 
>{procedure-call} 
>{repeat-statement} 

--->{return-statement} 
>{while-statement} 


>{with-statement} 


Statements are your directions to per- those found in most high level program- 
form specific operations based on the ming languages. 
data. The statements are similar to 
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9.1 THE ASSERT STATEMENT 


assert-statement: 


---> assert --->{expr} 


The assert-statement is used to check 
for a specific condition and signal a 
runtime error if the condition is not 
met. The condition is specified by the 
expression which must evaluate to a 
BOOLEAN value. If the condition is not 
TRUE then the error is raised. The com- 
piler may remove the statement from the 
program if it can be determined that the 
assertion is always true. 
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Example: 
assert A >= B 


The Assert Statement 


c 


9.2 THE ASSIGNMENT STATEMENT 


assignment-statement: 


Tr? {variable} > := ——>{expr]} 
>{id: function}—> 


The assignment-statement is used to 
assign a value to ae variable. This 
statement is composed of a reference to 
a variable followed by the assignment 
symbol (':="'), followed by an expression 
which when evaluated is the new value. 
The variable must be conformable to the 
expression. The rules for expression 
conformability are given in "Type Com- 
patibility" on page 31. 


You may make array assignments Cassign 
one array to another array) or record 
assignments Cassign one record to anoth- 
er). When doing this, the entire array 
or record is assigned. 


A result is returned from a function by 
assigning the result to the function 
name prior to leaving the function. See 
"Function Results” on page 65 


Pascal/V¥5 will not permit the assignment 
of a value to a pass by const parameter. 


Example: 


type 
CARD = record 


SUIT =: CSPADE, 


HEART, 
DIAMOND, 
CLUB); 
RANK : 1..13 
end; 
var 
X, Y, Z ? REAL; 
LETTERS, 
DIGITS, 


LETTER_OR_DIGIT 
set of CHAR; 


I, J» K + INTEGER; 


DECK : arrayl 1..52 
CARD; 


X t= YRZ; 
LETTERS 

DIGITS 
LETTER_OR_DIGIT 
DECKE I J].SUIT 
DECK[ J ] 


C "At .. '2' 7; | 
Cc 'o' .. '9% Ye 
LETTERS + DIGITS; | 
HEART; | 
DECKE K J; 


Assignment Statements 
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9.3 THE CASE STATEMENT 


case-statement: 


—> case ——>{expr}—> of 7] 
< 


>{range} >: 
ial ae 


, 


,’ 


<—_ ; 


€------- ° 


The case~-statement provides you with a 
multiple branch based upon the evalu- 
ation of an expression. This statement 
consists of an expression called the 
selector anda list of statements. The 
selector must be of scalar type (except 
type REAL). Each statement is prefixed 
with one or more ranges of the same type 
as the selector; each range is separated 
by a comma. Each range designates one 
or more values called case labels. 


Pascal/VS evaluates the expression and 
executes the statement whose case label 
equals the value of the expression. If 
no case label equals the value of the 
expression, then the otherwise state- 
ment is executed if it is present; if 
there is no otherwise statement and the 
“CHECK CASE option is on, then a runtime 
error Will result. If the checking is 
not enabled the results will not be pre- 
dictable. 


The range values of a case-statement may 
be written in any order. However, you 
may not designate the same case label on 
more than one statement. 
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— > {statement} > 
ed 


---> otherwise ---[>--> statement} --- 


Example: 


type 
SHAPE = CTRIANGLE, RECTANGLE, 
SQUARE, CIRCLE); 
COORDINATES = 
record 
X,Y > REAL; 
AREA : REAL; 
case S =: SHAPE of 
TRIANGLE: 
(SIDE : REAL; 
BASE =: REAL); 
RECTANGLE: 
(SIDEA,SIDEB : REAL); 
SQUARE: 
CEDGE : REAL); 
CIRCLE: 
CRADIUS = REAL) 
end; 
var 
COORD : COORDINATES; 


with COORD do 
case S of 
TRIANGLE: 
AREA := 0.5 ® SIDE * BASE; 
RECTANGLE: 
AREA := SIDEA * SIDEB; 


SQUARE: 
SQRCEDGE); 


AREA 
CIRCLE: 

AREA == 3.14159 *® SQ@RCRADIUS) 
end; 


The Case Statement 


L 


Example: 


SUIT = CSPADE,HEART,DIAMOND,CLUB)$ 


type 
RANK = CACE, TWO, 
FIVE, SIX, 
NINE, TEN, 
KING); 
CARD record 
R > RANK; 
S > SUIT 
end; 


A_CARD : CARD; 


case A_CARD.R of 
ACE: 


POINTS == il 
TWO..TEN: 


ar 
POINTS : INTEGER; 


, 


THREE, FOUR, 
SEVEN, EIGHT, 
JACK, QUEEN, 


POINTS == ORDCA_CARD.R)+1 


otherwise 
POINTS 
end; 


10 


The Case Statement with otherwise 


Statements 
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9.% THE COMPOUND STATEMENT 


compound-statement: 


—> begin >{stat t} > end 
sia agg OR oae ae 


The compound-statement serves to brack- 
et a series of statements that are to be 


executed sequentially. The reserved Example: 
words "begin" and "end" delimit the 
statement. Semicolons are used to sepa- {f A > B then 
rate each statement in the list of begin { swap A and B } 
statements. TEMP == A; 

A = B; 

B = TEMP 

end 


Compound Statement 
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9.5 THE CONTINUE STATEMENT 


continue-statement: 


---> continue 
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The continue statement causes a jump to 
the loop-continuation portion of the 
inner-most enclosing for, While, or 
repeat statement. In other words, it is 
a goto to the end of the loop. 


The following examples illustrate how 
the continue statement functions in each 
of the loop constructs. 
while expr do begin 
continue 
(xcontinue jumps to here} 
end 


for i ?= exprl to expr2 do 
begin 


continue 


(Xcontinue jumps to here} 
end 


repeat 
continue 


(¥continue jumps to here) 
until expr; 
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9.6 THE EMPTY STATEMENT 


empty~statement: 


The empty-~statement is used as a place 
holder and has no effect on the exe- 
cution of the program. This statement 
is often useful when you wish to place a 
label in the program but do not want it 
attached to another statement (such as, 
at the end of a compound-statement). 
The empty~-~statement is also useful to 
avoid the ambiguity that arises in nest- 
ed if-statements. You may force a 
single else-clause to be paired with the 
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outer nested if-statement (see page 94 ) 
by using an empty-statement. 


if bl then 
if b2 then 
sl 
else 
{ empty-statement } 
else 
52 


9.7 THE FOR STATEMENT 


for-statement: 


—> for —>{lid}——> := —>{expr} > to Te ee 
ae downto ——> | 
fo es 
> do ——>{statement} 


The for-statement repeatedly executes a 
statement while the control variable is 
assigned a series of values. The value 
of the control variable is incremented 
(to) or decremented (downto) for each 
iteration of the loop. The increment 
(decrement) is computed by the SUCC 
CPRED) function. That is, the control 
variable is changed to the succeeding 
(preceding) value of the type of the 
control variable. 


The for-statement initializes the con- 
trol variable to the first expression. 
Prior to each execution of the component 
statement, the control variable is com- 
pared less than or equal to (to), or 
greater than or equal to (downto) the 
second expression. Pascal/VS computes 
the value of the second expression at 
the beginning of the for-statement and 
uses the result for the duration of the 
statement. Thus the ending value 
expression is computed once and can not 
be changed during the for-statement. 


The control variable must be an automat— 
ic variable which is declared in the 
immediately enclosing routine. Also, it 
may not be subscripted, field qualified 
or referenced through a pointer. The 
type of the control variable must be a 
scalar type. 


The executed statement must not alter 
the control variable. If the control 
variable is altered within the loop, the 
resultant loop execution is not predict-— 
able. The value of the control variable 
after the for-statement is executed is 
undefined (Cyou should not expect the 
control variable to contain any partic— 
ular value). 


Given the following statement 
for I := exprl to expr2 do stmt 
where I is an automatic scalar variable; 


exprl and expr2 are scalar expressions 
which are type-compatible with I; and 


"stmt' is any arbitrary statement. The 
following compound statement is func- 
tionally equivalent: 


begin 
TEMP1 == exprl; 
TEMP2 := expr2; 
if TEMP1 <= TEMP2 then 


if I = TEMP2 then 
leave; 
I := succc(I) 
until FALSE; {forever} 
end 
end 


where "TEMP1" and "TEMP2" are compiler 
generated temporary variables. 


And given the following statement 


for I == expr! downto expr2 do stmt 
where I is an automatic scalar variable; 
exprl and expr2 are scalar expressions 
which are type-compatible with I; and 
"stmt' is any arbitrary statement. The 
following compound statement is func 
tionally equivalent: 


begin 
TEMP1 expril; 
expr2; 


if TEMP1 >= TEMP2 then 


» 
if I = TEMP2 then 
leave; 
I := PRED(I) 
until FALSE; {forever} 
end 
end 


where "TEMP1* and 'TEMP2" are compiler 
generated temporary variables. 
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Examples: 


{ find the maximum INTEGER in 
{ an array of INTEGERs 
MAX := ALL]; 
LARGEST := 1; 
for I := 2 to SIZE_OF_A do 
if ACI] < MAX then 
begin 

LARGEST := I; 

MAX := ALT) 
end 


{ matrix multiplication: C<-Ax¥B 


for I := 1 to N do 
for J:= 1 to N do 


begin 
X 7= 0.0; 
for K := 1 to N do 
X := ALI,K] * BIK,J] + X; 
c{LI,J] := X 
end 


ed tye 


} 


{ sum the hours worked this week } 


SUM := 0; 
for DAY := MON to FRI d 
SUM 


The For Statement 
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te] 
7= SUM + TIMECARDI DAY ] 


C 


9.8 THE GOTO STATEMENT 


goto-statement: 


> goto —>{label} 


The goto-statement changes the flow of 
control within the program. 


Examples: 


goto 10 
goto ERROR_EXIT 


The Goto Statement 


The label must be declared within the 
routine that contains the 
goto-statement. 


The following restrictions apply to the 
use of the goto statement: 


° You may not branch into a compound 
statement from ai e§goto-statement 
which is not contained within the 
statement. 


° You may not branch into the then- 
clause or the else-clause from a 
goto-statement that is outside the 
if-statement. Further, you may not 
branch between the then-clause and 
the else-clause. 


° You may not branch into a case-al- 
ternative from outside the 
case-statement or between case-al- 
ternative statements in the same 
case-statement. 


° You may not branch into ae “for, 
repeat, or while loop from a goto 
statement that is not contained 
within the loop. 


° You may not branch into a 
with-statement from a 
goto-statement outside of the 
with-statement. 


e For a goto-statement that specifies 
a label that is defined in an outer 
routine, the target label may not be 
defined within a compound statement 
or loop. 


The following example illustrates legal 
and illegal goto-statements. 


procedure GOTO_EXAMPLE; 
label 
Li, L2, L3, L4¢ 


procedure INNER; 


egin 
goto L4; { permitted } 
goto L3; { not permitted } 
end; 
begin 
goto L3; { not permitted } 
begin 
L3: 
goto L4; { permitted } 
rr goto L3; { permitted } 
end; 


L4¢:if expr then 
ice. goto L2 { not permitted } 
else 
L2: goto L1 { not permitted } 
end; 


Goto Target Restrictions 
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9.9 THE IF STATEMENT 


if-statement: 


—> if —>{expr}—> then —>{statement} 


The if-statement allows you to specify 
that one of two statements is to be exe- 
cuted depending on the evaluation of a 
boolean expression. The if-statement is 


composed of an expression and a then- 
else~clause. 


clause and an_ optional 
Each clause contains one statement. 


The expression must evaluate to a 
BOOLEAN value. If the result of the 
expression is TRUE, then the statement 
in the then-clause is executed. If the 
expression evaluates to FALSE and there 
15 an else-clause, then the statement in 
the else-clause is executed; if there is 
no else-clause, control passes to the 
next statement. 


Example: 


if A <= B then 
A := CA+1.0)72.0 


if ODDCI) then 
J? =J+l 

else 
J:=J div 2+ 1 


The If Statement 


Nesting of an if-statement within an 
if-statement could be interpreted with 
two different meanings if only = one 
statement had an else-clause. The fol- 
lowing example illustrates the condi- 
tion that produces the ambiguity. 
Pascal/V¥V5S always assumes’ the first 
interpretation. That is, the 
else-clauses are paired with the inner- 
most if-statement. 
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Eat cae 
> else —>{statement}—> 


The following line could be 
interpreted two ways. 


if bl then if b2 then stmtl else stmt2 


Interpretation 1 
Cassumed by Pascal/VS) 


if bl then 
begin 
if b2 then 
stmtl 
else 
stmt2 
end 


Interpretation 2 
Cincorrect interpretation) 


if bl then 
begin 
1f b2 then 
stmtl 
end 
else 
stmt2 


If the second interpretation is desired 
you could code it as shown or you could 
take advantage of the empty-statement. 


if bi then 
if b2 then 
stmtl 
else 
{ empty statement } 
else 
stmt2 


Pe ee ee ee eo 


9.10 THE LEAVE STATEMENT 


leave-statement: 


---> leave 


The leave statement causes an immediate, 
unconditional exit from the inner-most 
enclosing for, while or repeat loop. 
For example, the following two code seg- 
ments are functionally equivalent: 


while expr do 
begin 
leave 
end; 
While expr do 
begin 
goto lab; 
end; 
lab: ; 


HEHEHE EE EEE EEE HEHE HEH 
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Example: 
P:=FIRST; 


while P<>nil do 
if Pa.NAME = "JOE SMITH’ then 


P:=Pa.NEXT; 
{ P either points to the desired } 
{ data or is nil } 


The Leave Statement 
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9.11 THE PROCEDURE CALL 


procedure-call: 


causes the 
When a pro- 
cedure is invoked, the actual parameters 
are substituted for the corresponding 


The procedure-statement 
invocation of a procedure. 


formal parameters. The actual parame- 
ters must be conformable to the formal 
parameters. The rules for expression 
conformability are given in "Type Com- 
patibility™ on page 3l. 


Parameters which are passed by 
read/write reference (var) may only be 
variables, never expressions or _ con- 
stants. Also, fields of a packed record 
may not be passed by var. Parameters 
passed by value or read-only reference 
(const) may be any expression. 


A procedure invocation that requires no 


parameters does not use the list of 
operands. 
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— >i d? procedure} a> 
> ¢ } > ) > 


> 
Te boxer 


Example: 


TRANSPOSECAN_ARRAY, 
NUM-OF_ROWS, 
NUM-OF_COLUMNS); 


MATRIX_ADDCA_ARRAY, 
B_ARRAY, 
C_ARRAY, 
NOM); 

XYZCI+J, KXL) 


Procedure Invocations 


9.12 THE REPEAT STATEMENT 


repeat-statement: 


—> repeat >{stat t} > until —>{ } 
peat [Est ategent) expr 


The statements contained between the 
statement delimiters repeat and until 
are executed until the control expres- 
sion evaluates to TRUE. The control 
expression must evaluate to type 
BOOLEAN. Because the termination test 
is at the end of the loop, the body of 
the loop is always executed at least 
once. The structure of the 
repeat-statement allows it to act likea 
compound statement in that it encloses a 
list of statements. 


Exampl 
repea 
K : 

I 
Jo: 
until 


e: 
t 
= I mod J; 
= J5 
= K 
J = 0 


The Repeat Statement 
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9.13 THE RETURN STATEMENT 


return-statement: 


---> return 


The return-statement permits an exit 
from a procedure or function. This 
statement is effectively a goto to an 


imaginary label after the last statement 
within the routine being executed. I 
the “CHECK FUNCTION option is enabled, 
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Pascal/VS will insure that a function 
has been assigned a value prior to the 
return from the function. If a value 
has not been assigned, a runtime error 
Will occur. 


9.14 THE WHILE STATEMENT 


Cc 


> while —>{expr}—> do —> {statement} 


The while-statement allows you to speci- 
fy a statement that is to be executed 


while a control expression evaluates to Exampla: 
TRUE. The control expression must eval- 
uate to type BOOLEAN. The expression is { Compute the decimal size of N } 
evaluated prior to each execution of the { assume N >= 1 } 
statement. I := 0; 
Joss 13 
while N > 10 do 
begin 
Ic= I+ 1; 
Jor= 5 * 10; 
N := N div 10 
end 
{ I is the power of ten of the 
{ original N 


{ J is ten to the I power 
{ 1 <= N <= 9 


Nea Nye lye Lye 


The While Statement 
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9.15 THE WITH STATEMENT 


with-statement: 


—> with Tm? fvariable}—7—> do —> {statement} 
<—_ , < 
The with-statement is used to simplify unavailable in a with statement that 
references to a record variable by elim- specifies the record. 
inating an addressing description on 
every reference to ae field. The 


with-statement makes the fields of a 
record available as if the fields were 


variables within the nested statement. Example: 
The with-statement effectively computes type 
the address of a record variable upon EMPLOYEE = 
executing the statement. Any modifica- record 
tion to a variable which changes the NAME = STRING(20); 
address computation will not be MAN_NO =: 0..999999; 
reflected in the pre-computed address SALARY : INTEGER; 
during the execution of the with state- ID_NO > 0..999999 
ment. The following example illustrates end; 
this point. 

var 


FATHER : 2 EMPLOYEE; 
with FATHER do 


var A: arrayf 1..10 ] of begin 
record NAME = 'SMITH'; 
FIELD : INTEGER MAN_NO := 666666; 
end; SALARY == WEEKLY_SALARY; 
ora ID_NO = MAN_NO 
I:=1; end 
with AL I J] do 
begin is equivalent to: 
K := FIELD; {K:=AL1]. FIELD} : 
I = 23 begin 
K := FIELD; {K:=AC1]. FIELD} FATHER]. NAME ?= "SMITH'; 
end; FATHERO.MAN_NO := 666666; 
FATHERA.SALARY == WEEKLY_SALARY; 
The Address of A is Computed FATHERA.ID_NO 7= FATHER@.MAN_NO 
on Entry to the Statement end 


Note: The variable FATHER is of type 
pointer to EMPLOYEE, thus the pointer 
notation must be used to specify the 


The comma notation of a with-statement record pointed to by the pointer. 
is an abbreviation of nested 
with-statements. The names within a The With Statement 


with-statement are scoped such that the 
last with statement will take 
precedence. A local variable with the 
same name as a field of a record becomes 
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C 


Example: 


yo: record 


V2 : INTEGER; 
V1: record A : REAL end; 


A = INTEGER 
end; 
A : CHAR; 
with V,V1 do 
begin 
V2 = 1; { 
A = 1.0; { 
V.A t= 1 { 
{ 
{ 
end; 
A i= "AT; } 


With Statements 


Can Hide a Variable 


V.V2 2:5 1 } 
V.VL.A 2= 1.0 } 
V.A 35 1 } 


CHAR A is not } 
available here} 


CHAR A is now } 
available } 


Statements 
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Input and output are done using the file 
data structure. The Pascal/VS Program- 
mer's Guide provides more detail on how 
to use the I/0 facilities in a specific 
operating system. Pascal/VS provides 
predefined routines which operate on 
variables of a file type. The routines 


are: 

° RESET 

° REWRITE 
° READ 

° WRITE 

° GET 

° PUT 

° EOF 

° CLOSE 

° UPDATE 
e TERMIN 

° TERMOUT 
° PDSIN 

° PDSOUT 

° SEEK 


To facilitate input and output oper- 
ations that require conversion to and 
from a character representation, the 
predefined file type TEXT is provided. 
The type TEXT is predefined as a file of 
CHAR. Each GET and PUT transfers one 
CHAR of information. There are addi- 
tional predefined routines that may be 
executed on variables of type TEXT that 
perform the required conversions. 


e READLN 


° WRITELN 
° EOLN 
° PAGE 
° COLS 


10.0 I/0 FACILITIES 


10.1 RESET PROCEDURE 


Open a File for Input 


Definition: 


procedure RESET( 
F : filetype; 
const $ STRING); 


Where: 


F is a variable of a file type 
S is an optional string value that 
specifies options 


RESET positions the file pointer to the 
beginning of the file and prepares the 
file to be used for input. After you 
invoke RESET the file pointer is point- 
ing to the first data element of the 
file. If the file is associated with a 
terminal, the terminal user would be 
prompted for data when the RESET is exe- 
cuted. This procedure can be thought of 


Closing the file Cif open). 
Rewinding the file. 


1 
2 
3. Opening the file for input. 
& 


Getting the first component of the 
file. 


The string parameter is used to specify 
any special file dependent options to be 
used in opening the file. Consult the 
Pascal/VS Programmer's Guide, order 
number SH20-6162 which describes the 
options that are available. 
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10.2 REWRITE PROCEDURE 
Open a File for Output 
Definition: 
Procedure REWRITEC 


F : filetype; 
const S = STRING); 


Where: 


F is a variable of a file type 
S is an optional string value that 
spacifies options 


REWRITE positions the file pointer to 
the beginning of the file and prepares 
the file to be used for output. This 
procedure can be thought of as: 


1. Closing the file Cif open). 

2. Rewinding the file. 

3. Opening the file for output. 

The string parameter is used to specify 
any special file dependent options to be 


used tn opening the file, Consult the 


Pascal/VS Programmer's Guide, order 
number $H20-6162 which describes the 
options that are available. 
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10.3  TERMIN PROCEDURE 


Open a File for Input from the Terminal 


Definition: 


procedure TERMIN(C 
F : TEXT; 


const S$ STRING); 


Where: 


F is a variable of type TEXT 
S is an optional string value that 
specifies options 


TERMIN opens the designated file for 
input from the users terminal. The 
string parameter is used to specify any 
special file dependent options to be 
used in opening the file. Consult the 
Pascal/VS_ Programmer's Guide, order 


number SH20~-6162 which describes the 


options that are available and operating 
system dependencies on this procedure. 


J 


Cc 


10.4 TERMOUT PROCEDURE 


Open a File for Output from the Terminal 


procedure TERMOUT( 
F : TEXT; 
const S : STRING); 


Where: 


F is a variable of type TEXT 
S$ is an optional string value that 
specifies options 


TERMOUT opens the designated file for 
output to the users” terminal. The 
string parameter is used to specify any 
special file dependent options to be 
used in opening the file. Consult the 
Pascal/VS_ Programmer's Guide, order 
number SH20-6162 which describes the 
options that are available and operating 
system dependencies on this procedure. 


0 PDS ROCEDU 


Open a File for Input from a PDS 


Definition: 


procedure PDSIN( 
F : filetype; 
const S : STRING); 


Where: 


F is a variable of a file type 
S$ is a string value that specifies 
options 


PDSIN opens a member in a library Cpar- 
titioned) file for input. 


The string parameter is used to specify 
any special file dependent options to be 
used in opening the file. Consult the 
Pascal/VS Programmer's Guide, order 
number SH20-6162 which describes the 
options that are available. 
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10.6 PDSOUT PROCEDURE 


Open a File for Output to a PDS 


Definition: 


procedure PDSOUTC 
F : filetype; 


const S STRING); 


Where: 


F is a variable of a file type, 
S is a string value that specifies 
options. 


PDSOUT opens a member ina library (par- 
titioned) file for output. 


The string parameter is used to specify 
any special file dependent options to be 
used in opening the file. Consult the 
Pascal/VS Programmer's Guide, order 
number SH20-6162 which describes the 
options that are available. 
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10.7 UPDATE PROCEDURE 


Open a File for Input and Output 


Definition: 


procedure UPDATEC 
F : filetype; 


const S$ STRING); 


Where: 
F is a variable of a file type, 


S is a string value that specifies 
options. 


UPDATE opens a file for both input and 


output Cupdating). A PUT operation 
replaces a file component obtained from 
a preceding GET operation. The exe- 
cution of UPDATE causes an implicit GET 
of the first file component (as _ in 
RESET). The following program fragment 
illustrates the use of UPDATE. 

var : 

FILEVAR file of record 
CNT INTEGER; 
end: 
UPDATECFILEVAR); {open and get } 


while not EOFCFILEVAR) do 
begin 
FILEVARQ.CNT == 
PUTCFILEVAR); 
GETCFILEVAR); 
end; 


FILEVARA.CNT+1; 
{update last elem} 
{get next elem } 


The string parameter is used to specify 
any special file dependent options to be 
used in opening the file. Consult the 
Pascal/VS Programmer's Guide, order 
number S$H20-6162 which describes the 
options that are available. 


t++eet 
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0.8 CLOSE PROCEDURE 


Close a File 


Definition: 


procedure CLOSEC 
F 


filetype); 


Where: 


F is a variable of a file type 


+ CLOSE closes a file; all processing to 


+ the file 


is completed. You must open 


+ the file prior to using it again. 


10.9 GET PROCEDURE 


Position a File to Next Element 


Definition: 


procedure GETC F filetype ); 


Where: 


F is a variable of a file type. 


GET positions the file pointer of a file 


Cpreviously opened for input) to the 
next component in the file. For 
example, if the file is defined as an 


array of 80 characters, then each GET 
returns the next 80 character record. A 
GET invocation on a file of type TEXT 
returns a single character. 
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10.10 PUT PROCEDURE 


Position a File to Next Element 


Definition: 


procedure PUT( F filetype ); 


Where: 


F js a variable of a file type. 


PUT releases the current component of 
the file variable by effectively writing 
the component to the associated physical 
file. A call to PUT witha file of type 
TEXT transfers a single character. The 
file must have been previously opened 
for output. 
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10.11 SEEK PROCEDURE 


Position a File to a Specified Element 


Definition: 


procedure SEEK( 
F : filetype; 
N : INTEGER); 


Where: 


F is a variable of a file type, 
N is an component number of 
the file. 


SEEK specifies the number of the next 
file component to be operated on by a 
GET or PUT operation. File components 
are origined at 1. The SEEK procedure 
is not supported for TEXT files. The 
file specified in the SEEK procedure 
must have been opened by RESET, REWRITE 
or UPDATE. For more infomation, consult 
the Pascal/VS Programmer's Guide, order 
number SH20-6162. 


J 


0.12 EOF FUNCTION 
Test File for End Of File 


Definition: 
function EOFCF: filetype): BOOLEAN; 
function EOF: BOOLEAN; 


Where: 


F is a variable of a file type. 


EOF is a BOOLEAN valued function which 
returns TRUE if the end-of-file cond- 
ition is true for the file. This condi- 
tion occurs in an input file when an 
attempt is made to read past the last 
record element of the file. If the file 
is open for output, this function always 
returns TRUE. 


If the file variable F is omitted, then 
Se es on assumes the predefined file 
T. 


Example: 


{ The following will read all of } 
{ the records from File SYSIN } 
{ and write then out to SYSOUT } 


type FREC = 


var 
SYSIN, 
SYSOUT: file of FREC; 


begin 
RESETCSYSIN); 
REWRITECSYSOUT); 
while not EQFC(SYSIN) do 
begin 
SYSOUTa := SYSINA; 
PUTCSYSOUT); 
GETCSYSIN) 
end; 
end; 


10.13 READ AND READLN (TEXT FILES) 
Read Data from TEXT File 


Definition: 


procedure READC 
f : TEXT; 
v ? see below); 


procedure READLN( 
f : TEXT; 
v : see below); 


Where: 


f is an optional text file 
that is to be used for input. 
v is one or more variables, 
each must be one of the 
following types: 
- INTEGER Cor subrange) 
- CHAR Cor subrange) 
REAL 
SHORTREAL 
STRING 
packed array of CHAR 


The READ procedure reads character data 
from the TEXT file f. READ converts 
character data to conform to the type of 
the operand. The file parameter is 
optional; the default file is INPUT. 


READLN positions the file at the begin- 
ning of the next line. You may use more 
than one variable on each call by sepa- 
rating each with a comma. The effect is 
the same as multiple calls to READ. 


READ( f,v1,v2) 
is equivalent to: 
begin 
READ(f,v1); 
READCf,v2) 
end 
and 
READLNCf,v1,v2,v3) 
is equivalent to: 
begin 
READC f,v1); 
READC £,v2); 
READ( f,v3);3 
READLNC fF); 
end 


Multiple Variables on READ or READLN 
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Reading INTEGER Data 


INTEGER data from a TEXT file is read by 
scanning off leading blanks, accepting 
an optional sign and converting all 
characters up to the first non-numeric 
character or end-of-line. 


Reading CHAR Data 


A variable of type CHAR is assigned the 
next character in the file. 


Reading STRING Data 


Characters are read into a STRING vari- 
able until the variable has reached its 
maximum length or until the end of the 
line is reached. 


Reading REAL CSHORTREAL) Data 


REAL CSHORTREAL) data is read by scan- 
ning off leading blanks, accepting an 
optional sign and converting all charac— 
ters up to the first non-numeric charac— 
ter not conforming to the syntax of a 
REAL number. 


Reading packed array of CHAR Data 


If the variable is declared as a 
"packed array[1..n] of CHAR’, charac- 
ters are stored into each element of the 
array. This is equivalent to a loop 
ranging from the lower bound of the 
array to the upper bound, performing a 
read operation for each element. If the 
end-of-line condition should become 
true before the variable is filled, the 
rest of the variable is filled with 
blanks. 


Consult the Programmer's Guide for more 
details on the use of READ and READLN. 
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var 
I,J? INTEGER; 
S$: STRINGC100); 
CH: CHAR; 
cc: packed array[1..10] of CHAR; 
F: TEXT; 


READLNCF,I,J,CH,CC,S); 


assume the data is: 


36 24 ABCDEFGHIHKLMNOPQRSTUVWNXYZ 


the variables would be assigned: 


I 36 
J 24 
CH ' 9 
cc "ABCDEFGHIJ* 


S *KLMNOPQRSTUVWXYZ’ 
LENGTHCS) 16 


The READ Procedure 


Reading Variables with a Length 


You may optionally qualify a variable of 
READ with a field length expression: 


READCfF,vin) 


where "v" is the variable being read and 
"nh" is the field length expression. 


This expression denotes the number of 
characters in the input line to be proc-— 
essed for that variable. If the number 
of characters indicated by the field 
length is exhausted during a read opera- 
tion, then the reading operation will 
stop so that a subsequent read will 
begin at the first character following 
the field. If the reading completes 
prior to processing all characters of 
the field then the rest of the field is 
skipped. 


4 


var 
I,J: INTEGER; 
S$: STRING(100); 
CH: CHAR; 
cc: packed array[1..10] of CHAR; 
F: TEXT; 


READLNCF,1:4,J:10,CH:J,CC,S); 


assume the data is: 


36 24 ABCDEFGHIKLMNOPQRSTUVWXYZ 


the variables would be assigned: 


I 36 

J 4 

CH ‘EY 

cc "NOPQRSTUVW' 
"xyz" 


5 
LENGTH(S) 3 
The READ Procedure with Lengths 


10.14 READ (NON-TEXT FILES) 
Read Data from Non-TEXT Files 


Definition: 


procedure READ(C. 
f : file of t; 
vi: t)3 


Where: 
f is an arbitrary file variable. 
v is a variable whose type matches 
the file component type of f 


Each call to READ will read one file 
element from file 'f" and assign it to 
variable 'v'. If the file is not open, 
the READ procedure will open it prior to 
assigning to the argument. 


READ(f,v) is functionally equivalent to 
the following compound statement: 


begin v c= fa; GET(f) end 


For more details consult the Program- 
mer's Guide. 
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10.15 WRITE AND WRITELN (TEXT FILES) 


Write Data to FIle 


Definition: 


procedure WRITEC 
f : TEXT; 
e : see below); 


procedure WRITELN( 
f : TEXT; 
e : see below); 


Where: 
f is an optional TEXT file 
variable. 
e iS an expression of one of the 
following types: 
- INTEGER Cor subrange) 
- CHAR Cor subrange) 
REAL 
SHORTREAL 
BOOLEAN 
STRING 
- packed arrayll..nJ] of CHAR 
Pascal/V5S accepts a special para- 
meter format which is only 
allowed in the WRITE routine 
for TEXT files. 
See the following description. 


The WRITE procedure writes character 
data to the TEXT file specified by f. 
The data is obtained by converting the 
expression e into an external form. The 
file parameter is optional; if not spec~ 
ified, the default file OUTPUT is used. 


WRITELN positions the file to the begin- 
ning of the next line. WRITELN is only 
applicable to TEXT files. You may use 
more than one expression on each call by 
separating each with a comma. The 
effect is the same as multiple calls to 
WRITE. 
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WRITEC f,e1,e2) 
1s equivalent to: 


begin 
WRITECf,e1)3 
WRITEC f,e2) 
end 


and 
WRITELNC(C f,el1,e2,e3) 
is equivalent to: 


begin 
WRITECf,e1);3 
WRITECF,e2); 
WRITEC f,e3)35 
WRITELNCF);5 
end 


Multiple Expressions on WRITE 


Pascal/VS supports a specialized form 
for specifying actual parameters’ on 
WRITE and WRITELN to TEXT files. This 
provides a means by which you can speci- 
fy the length of the resulting output. 
Each expression in the WRITE procedure 
Pate may be represented in one of threa 
orms: 


2. e? lenl 
3. e: leni : len2 


The expression e may be of any of the 
types outlined above and represents the 
data to be placed on the file. The data 
is converted to a character represen- 
tation from the jinternal = form. The 
expressions lenl and len2 must evaluate 
to an INTEGER value. 


The expression lenl supplies the length 
of the field into which the data is 
written. The data is placed in the 
field justified to the right edge of the 
field. If lenl specifies a negative 
value, the data is justified to the left 
within a field whose length is 
ABSClenl). 


The len2 expression (form 3) may be 
specified only if e is an expression of 
type REAL. 


If lenl is unspecified (form 1) then a 
default value is used according to the 
table below. 


c 


C 


tet t 


type of default value 
expression e of leni 

INTEGER 12 

REAL 20 € E notation ) 
SHORTREAL 20 

CHAR 1 

BOOLEAN 10 

STRING LENGTHCexpression) 


array of CHAR length of array 


Default Field Width on WRITE 


Writing INTEGER Data 


The expression lenl represents the mini- 
mum width of the field in which the 
integer is to be placed. The value is 
converted to character format and placed 
in a field of the specified length. If 
the field is shorter than the _ size 
required to represent the value, the 
length of the field will be extended. 


Examples: 

Call: Result: 
WRITEC1234:6) , 1234" 
WRITEC1234:-6) "1234 =! 
WRITEC1234:1) "1234" 
WRITE(1234) ' 1234" 
WRITEC1234:~-3) °1234' 


Writing CHAR Data 


The value of lenl is used to 
the width of the field in which the 
character is to be placed. If lenl is 
not specified, a field width of 1 is 
assumed. If lenl is greater than 1 then 
the character will be padded on the left 


indicate 


with blanks; if lenl is negative, then 
the character will be padded on the 
right. 
Example: 
call: Result: 
WRITECTa’:6) ' at 
WRITEC'a't:-6) "a ' 


Writing REAL Data 


REAL expressions may be printed with any 
one of the three operand formats. If 


teehee t 


+++ 
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lenl is not specified (form 1), the 
result will be in scientific notation in 
a 20 character field. 


If lenl is specified and len2 is not 
(form 2), the result will be in scien- 
tific notation but the number of charac- 
ters in the field will be the value of 
lenl. 


If both lenl and len2 are specified 
(form 3), the data will be written in 
fixed point notation in a field with 
length lenl; len2 specifies the number 
of digits that will appear to the right 
of the decimal point. The REAL expres- 
sion is always rounded to the last digit 
to be printed. 


If lenl is not large enough to fully 
represent the number, it will be 
extended appropriately. 


Examples: 


Call: Result: 
WRITEC3.14159:10) 
* 3.142E+00' 


WRITEC3.14159) 
" 3.1415900000000E+00' 


WRITEC3.14159:10:4) 
' 3.1416! 


Writing BOOLEAN Data 


The expression lenl is used to indicate 
the width of the field in which the boo- 
lean is to be placed. If the width is 
less than 6, then either a 'T’ or 'F! 
will be printed. Otherwise, 'TRUE’ or 
"FALSE' will be sent to the file. Tha 
data is placed in the field and justi- 
fied according to the previously stated 
rules. 


Examples: 

Call: Result: 
WRITECTRUE:10) ' TRUE! 
WRITECTRUE:-10) "TRUE ' 
WRITECFALSE:2) ' Ft 


Writing STRING Data 


The second expression is used to indi-~ 
cate the width of the field in which the 


string is to be placed. The data is 
placed in the field and justified 
according to the previously stated 
rules. 
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Examples: 


Call: Result 
WRITEC' abcd’: 6) ' abcd! 
WRITEC'abcd'’:-6) ‘abed ' 


WRITEC'abcd':2) Tab? 
WRITEC’ abcd’) 


Writing Packed Array of CHAR Data 


The second expression is used to indi- 
cate the width of the field in which the 
array is to be placed. The data is 
placed in the field and justified 


according to the previously stated 
rules. 
Examples: 
var 
A : packed 
arrayl 1..4] of CHAR; 
A >= tabcd’; 

Call: Result: 
WRITECA:6) . abed’ 
WRITECA:-6) "abcd ' 
WRITECA: 2) Tab’ 
WRITECA) "abcd' 
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10.16 WRITE (NON-TEXT FILES) 


Write Data to Non-TEXT Files 


Definition: 


procedure WRITE( 
f >: file of t; 
e :? t); 


Where: 
f is an arbitrary file variable, 
e is an expression whose type 
matches the file component 
type of f 


Each call to WRITE will write the value 
of expression e to file 'f". 


WRITECf,e) is functionally equivalent 
to the following compound statement: 
begin fa i= e; PUTCf) end 


For more details consult the Program- 
mer’s Guide. 


10.17 EOLN FUNCTION 


Test a File for End of Line 


Definition: 
function EOLN(C ff: TEXT ):BOOLEAN; 
function EOLN: BOOLEAN; 


Where: 


f is a TEXT file set to 
input. 


The EOLN function returns a BOOLEAN 
result of TRUE if TEXT file f is posi- 
tioned to an end-of-line character; 
otherwise, it returns FALSE. 


If EOLNCf) is true, then fa has the val- 
ue of a blank. That is, when EOLN is 
TRUE the file is positioned to a blank. 
This character is not in the file but 
will appear as if it were. In many 
applications the extra blank will not 
affect the result; in those instances 
where the physical layout of the data is 
significant vou must be sensitive to the 
EOLN condition. 


If the file variable F is omitted, then 
the function assumes the predefined file 
INPUT. 


10.18 PAGE PROCEDURE 


Force Skip to Next Page 


Definition: 
procedure PAGEC var f: TEXT ); 
Where: 


f is a TEXT file set to 
output. 


This procedure causes a skip to the top 
of the next page when the text-file is 
printed. The file parameter is optional 
and defaults to the standard file vari- 
able OUTPUT. 
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16.19 COLS FUNCTION 


Determine Current Column 


Definition: 


function COLs¢ 
var f: TEXT ) : INTEGER; 


Where: 


116 


fisa TEXT fila seat to 
output. 
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This function returns the current column 
number Cposition of the next character 
to be written) on the output file desig- 
nated by the file variable. You may 
force the output to a specific column 
with the following code: 


if TAB > COLSCF) then 
WRITECF,® *: TAB-COLSCF)); 


The file name is never defaulted on the 
COLS: procedura. 


+++ 


ae ee ee ee ee eo +e e+ 
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The runtime library consists of those 


routines that are predefined in 
Pascal/VS. In addition to the routines 
described in this chapter, Pascal/VS 


provides routines with which to do input 
and output. Consult the I/0 chapter for 
a description of those routines. The 
predefined procedures and functions 
are: 

° ABS Function 

e ARCTAN Function 

° CHR Function 

° CLOCK Function 

° COMPRESS Function 

° COS Function 

° DATETIME Procedure 

° DELETE Function 

° DISPOSE Procedure 

° EXP Function 

° FLOAT Function 

° INDEX Function 

° HALT Procedure 

° HBOUND Function 

° HIGHEST Function 

° LBOUND Function 

° LENGTH Function 

° LN Function 

° LOWEST Function 

° LTRIM Function 

° MARK Procedure 

° MAX Function 


+++ 


+e e+ + teehee e+ ++ 


+e + 
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11.0 EXECUTION LIBRARY FACILITIES 
MAXLENGTH Function 
MIN Function 
NEW Procedure 
ODD Function 
ORD Function 
PACK Procedure 
PARMS Function 
PRED Function 
RANDOM Function 
READSTR Procedure 
RELEASE Procedure 
RETCODE Procedure 
ROUND Function 
Scalar Conversion 
SIN Function 
SIZEOF Function 
SQR Function 
SQ@RT Function 
STR Function 
SUBSTR Function 
SuUCC Function 
TRUNC Function 
TRIM Function 
TOKEN Function 
TRACE Procedure 
UNPACK Procedure 
WRITESTR Procedure 
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++tee 
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11.1 MEMORY MANAGEMENT ROUTINES 


These routines provide means by which you can control the allocation of dynamic var- 


jables. 


11.1.1 MARK Procedure 
Mark Heap 


Definition: 


procedure MARK( 
var P pointer ); 
Where: 


P is a pointer to any type 


The MARK procedure allocates a new area 
of menory from where dynamic variables 


are to be allocated. Such an area is 
called a heap.. The predefined proce- 
dure NEW allocates a dynamic variable 


from the most recently created heap. 
The predefined procedure DISPOSE 
de-allocates a dynamic variable from the 
heap. 


RELEASE is the complementary procedure 
which destroys a heap. Heaps are cre- 
ated and destroyed ina stack-like fash- 
jon. 


MARK does not allocate dynamic 
variables. The pointer variable passed 
as parameter P is set to the address of 
the associated heap control block; thus, 
the returned pointer must not be used as 
the base of a dynamic variable. 


when the heap is freed. 
unpredictable results. 
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11.1.2 RELEASE Procedure 


Release Heap 


Definition: 


procedure RELEASE(C 
var P pointer ); 


Where: 


P is a pointer to any type. 


RELEASE frees one or more heaps that 
were previously allocated by calls to 
MARK. (See the description of MARK for 
a definition of "heap"”.) The parameter 
of RELEASE must contain the address 
returned by a previous call to MARK; it 
jis through this parameter that the heap 
is identified. 


RELEASE frees all heaps that were allo- 
cated since the corresponding MARK was 
executed. Thus, heaps are created and 
destroyed in a stack-like manner. 


When a heap is freed, all of the dynamic 
variables which were allocated from the 
heap are also (freed. As a result, 
RELEASE is a means for disposing of many 
dynamic variables at one time.‘ 


RELEASE sets its parameter variable (P) 
to nil. 


Pointers which reference dynamic variables of a heap are no longer defined 
Subsequent uses of such pointer values may cause 


J 


= 
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type 
MARKP = INTEGER; 
LINKP = @LINK; 


LINK = record 
NAME: STRING(C30); 
NEXT: LINKP 
end; 


P : MARKP; 
Q3. + LINKPs 
MARK(P); 
NEW(Q1) 5 
NEW(Q2); 
NEW(Q3)3 


{ Frees Ql, Q2 and Q3 } 
RELEASECP); 


end; ; 


Example of MARK and RELEASE 
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11.1.3 NEW Procedure 


Allocate Dynamic Variable 


Definition: 


form 1: 
procedure NEW( 
var P pointer ); 
form 2: 
procedure NEW( 
var Pl 


pointer; 


t1,t2... 


scalar); 


form 3: 
procedure NEW( 
var SP > STRINGPTR; 
LEN > INTEGER; 


Where: 


P is a pointer to any type 
except a dynamic array. 

Pl is a pointer to a record 
type with variants 

SP is a STRINGPTR 

t1,t2... are scalar constants 
representing tag fields 

LEN is an integer valued expression 


The NEW procedure allocates a dynamic 
variable from the most recent heap and 
sets the pointer to point to the vari- 
able. 


form 1 


The first form of procedure NEW allo- 
catas the amount of storage that is nec~ 
essary to represent a value of the type 
to which the pointer refers. If the 
type of the dynamic variable is a record 
with a variant part, the space allocated 
is the amount required for the record 
when the largest variant is active. 


type 
LINKP = QLINK; 
LINK = record 
NAME: STRING(C30); 
NEXT: LINKP 
end; 


P, 
HEAD = LINKP; 


begin 
NEWCP)5 
With Pa do 
begin 
NAME 
NEXT 


end; 
HEAD == P; 


HEAD; 


end; 


Example of using Simple Form 
of Procedure NEW 


form 2 


The second form is used to allocate a 
Variant record when it is known which 
variant Cand sub-variants) will be 
active, in which case the amount of 
storage allocated will be no larger than 
necessary to contain the variant speci- 
fied. The scalar constants are tag 
field values. The first one indicates a 
particular variant in the record which 
will be active; subsequent tags indicate 
active sub-variants, sub-sub-variants, 
and so on. 


Note: This procedure does not set tag 
fields. The tag list only serves to 
indicate the amount of storage required; 
1t 1s the programmer's responsibility to 
set the tag fields after the record is 
allocated. 
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type 
AGE = 0..100; 
RECP = aREC; 


REC = 
record 
NAME: STRINGC30); 
case HOW_OLD: AGE of 
0..18: 
CFATHER: RECP); 
19..100: 
(case MARRIED: BOOLEAN of 
TRUE: CSPOUSE: RECP); 
FALSE: (€) 
) 
end; 
var 
P RECP; 
begin 


NEWCP,18); 
with Pa do begin 
NAME := "J. B. SMITH, JR* 
HOW_OLD == 18; 
NEWCFATHER, 54, TRUE) ; 
with FATHERa do begin 
NAME == "J. B. SMITH’; 
HOW_OLD == 54; 
MARRIED := TRUE; 
NEWCSPOUSE,50,TRUE); 


end {with fathera}; 
end {with pa}; 


end; ; 


Using NEW for Allocating 
Records with Variants 


form 3 


The third form is used to allocate a 
string whose maximum length is’ known 
only during program execution. The 
amount of storage to be available for 
the string is defined by the required 
second parameter. See "The Type 
STRINGPTR™ on page 58. 
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11.1.4 DISPOSE Procedure 


De-allocate Dynamic Variable 


Definition: 
procedure DISPOSE( 

var P > pointer); 
Where: 


P is any pointer type. 


DISPOSE returns storage for a dynamic 
variable. You may de-allocate a dynamic 
variable from any heap. This procedure 
only returns the storage referred to by 
the pointer and does not return any 
storage which the dynamic variable ref- 
erences. That is> if the dynamic 
variable is part of a linked list, you 
must explicitly DISPOSE of every element 
of the list. DISPOSE sets the pointer 
to nil. If you have other pointers 
which reference the same DISPOSEd dyna- 
mic variable, then it is your 
responsibility not to use these pointers 
because the dynamic variable which they 
represented is no longer allocated. 


Cc 


11.2 DATA MOVEMENT ROUTINES 


These routines provide you with convenient ways to handle large amounts of data 


movement efficiently. 


11.2.1 PACK Procedure 


Copy Unpacked Array to Packed Array 


Definition: 


procedure PACK( 
const SOURCE : array-typa; 
INDEX = index_of_source; 
var TARGET pack_array_type) 


Where: 


SOURCE is an array. 

INDEX is an expression which is 
compatible with the index 
of SOURCE. 

TARGET is a variable of type packed 
array. 


This procedure fills the target array 
with elements from the source array 
starting with the index I where the tar- 
get array is packed. The types of the 
elements of the two arrays must be iden- 
tical. This procedure operates as: 


Given: 
A: arraylm..n] of T; 
Z : packed arraylu..vl] of T; 


Call: 
PACKCA, I, 2); 


Operation: 
k := 


for j te LBOUND(Z) to HBOUND(Z) da 


begin 
ZUj] := Alki]; 
k == SUCCCk) 
end; 

Where: 


j and k are temporary variables. 


It is an error if the number of elements 
in Z is greater than the number of ele- 
ments in A starting with the Ith element 
to the end of the array. 


11.2.2 UNPACK Procedure 


Copy Packed Array to Unpacked Array 


Definition: 


procedure UNPACK( 
var SOURCE 


pack_array_type; 
const TARGET 


array-type; 


INDEX : index_of_target); 


Where: 


SOURCE is a packed array. 

TARGET is a variable of type array. 

INDEX is an expression which is 
compatible with the index 
of TARGET. 


This procedure fills the target array 
with elemants from the source array 
where the source array is packed. The 
type of the elements of the two arrays 
must be identical. This procedure oper- 
ates as: 


Given: 
A: array[m..n] of T; 
Z : packed arraylu..vl] of T; 


Call: 
UNPACK(Z, A, 1)3 


Operation: 
k ?:= JT; 
for 3 := LBOUND(Z) to HBOUND(Z) do 
begin 
ACk] := 2035]; 
k ?= SUCCCkK) 
end; 


Where: 
j and k are temporary variables. 


It is an error if the number of elements 
in Z is greater than the number of ele~ 
ments in A starting with the Ith element 
to the end of the array. 
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11.3 DATA ACCESS ROUTINES 


These routines provide you a means to 
values. 


11.3.1 LOWEST Function 
Lowest Value of a Scalar 


Definition: 


function LOWEST( 
S 


scalar-type) 
scalar; 


Where: 


S is an identifier that has been 
declared as a scalar type, or 
a variable which is of a scalar 
type. 


This function returns the lowest value 
that is in the scalar type. The operand 
may be either a type identifier or a 
variable. If the operand is a type 
identifier, the value of the function is 
the lowest value that a variable of that 
type may be assigned. If the operand is 
a variable, the value of the function 15 
the lowest value that the variable may 
be assigned. 


If the argument 5 refers to a 
record-type which has a variant part, 
and if no tag values are specified, then 
the storage required for the record with 
the largest variant will be returned. 


Example: 
type 
DAYS = (SUN, MON, TUES, WED, 
THU, FRI, SAT); 
SMALL = 0 .. 313 
var 
I > INTEGER; 
J > 0 2553 
LOWEST (DAYS) is SUN 
LOWESTCBOOLEAN) is FALSE 
LOWESTCSMALL) is 0 
LOWESTCI) is MININT 
LOWESTCJ) is 0 
The LOWEST Function 
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inquire about compile and run time bounds and 


11.3.2 HIGHEST Function 


Highest Value of a Scalar 


Definition: 


function HIGHEST ( 
S scalar-type) 
scalar; 


Where: 


S is an identifier that has been 
declared as a scalar type, or 
a variable which is of a scalar 
type. 


This function returns the highest value 


that is in the scalar type. The operand 
may be either a type identifier or a 
variable. If the operand is a type 


identifier, the value of the function is 
the highest value that a variable of 
that type may be assigned. If the oper- 
and is a variable, the value of the 
function is the highest value that the 
variable may be assigned. 


Example: 

type 
DAYS = (SUN, MON, TUES, WED, 

THU, FRI, SAT); 

SMALL =0 .. 313 

var 
I > INTEGER; 
J > 0 .. 2553 
HIGHESTCDAYS) is SAT 
HIGHESTCBOOLEAN) is TRUE 
HIGHESTCSMALL) is 31 
HIGHESTCI) 1s MAXINT 
HIGHESTCJ) is 255 


The HIGHEST Function 
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11.3.3 _ LBOUND Function 
Lower Bound of Array 


Definition: 


function ROUNDS 


> arraytype; 
I > integer-const) 
scalar; 


function LBOUND( 
T = type-identifier; 
I > integer-const) 
> scalar; 


Where: 


Vis a variable which is declared 
an array type. 
T is an type identifier declared 
an array. 
I is an positive integer valued 
constant expression and is 
optional. 


The LBOUND function returns the lower 
bound of an index to an array. The 
array may be specified in two ways: 


° an identifier which was declared as 
an array type via the type 
construct; 


° a variable which 
type. 


is of an array 


The value returned is of the same type 
as the type of the index. The second 
parameter defines the dimension of the 
array for which the lower bound is 
returned. It is assumed to be "1" if it 
is not specified. 


Example: 
type 
GRID = array[-10..10,-10..10] of 
REAL; 
var 
A > arrayl 1..100 1] of ALFA; 
B > arrayl 1. $100 1 of 
of arrayl 0..9 1] of CHAR; 
LBOUNDC A ) sl 
LBOUND( GRID, 1) is -10 
LBOUNDC B, 2 ) is 0 
LBOUNDC B[1] ) is 0 


The LBOUND Function 
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11.3.4 HBOUND Function 


Upper Bound of Array 


Definition: 


function HBOUND( 
Vv 


> arraytype; 
I integer-const) 
> scalar; 


function HBOUND( 
T > type-identifier; 
I > integer-const) 
> scalar; 


Where: 


Vis a variable which is declared 
an array type. 
T is an type identifier declared 
an array. 
I is an positive integer-valued 
constant expression and is 
optional. 


The HBOUND function returns the upper 
bound of an index to an array. The 
array may be specified in two ways: 


° an identifier which was declared as 
an array type via the type 
construct; 


° a variable which 
type. 


is of an array 


The value returned is of the same type 
as the type of the index. The second 
parameter defines the dimension of the 
array for which the upper bound is 
returned. It is assumed to be "1" if it 
is not specified. 


Example: 
type 
GRID = array[-10..10,-10..10] of 
REAL; 
var 
A > GRID; 
B > arrayl 1..100 J] of 
of arrayl 0..9 J] of CHAR; 
HBOUND( A ) is 10 
HBOUNDC( GRID ) is 10 
HBOUNDC B, 2 ) is 9 
HBOUNDC BC1] ) is 9 


The HBOUND Function 
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11.3.5 SIZEOF Function 


Allocation Size of Data 


Definition: 


function SIZEOFC 
$ * anytype) 
INTEGER; 


function nLeeOrt 


recordtype; 
C1542 5 -cc55 . tags); 
* INTEGER; 


Where: 
S is an identifier that has been 


declared as a type, or any 
variable. 
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The SIZEOF function returns the amount 
of storage in bytes required to contain 
the variable or a variable of the type 
specified. 


If S is a record variable or a type 
identifier of a record, it may be fol- 
lowed by tag list which defines a par- 
ticular variant configuration of the 
record. In this case the function will 
return the amount of storage required 
within the record to contain that vari- 
ant configuration. 


» 


11.4 CONVERSION ROUTINES 
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This section documents predefined routines which preform conversions from one data 


type to another. 
acter string conversions. 


11.4.1 ORD Function 


Ordinal Value of Scalar 


Definition: 


function epee 


scalar ) 
INTEGER; 


Where: 


S is may be any scalar type or 
a pointer. 


This function returns an integer that 
corresponds to the ordinal value of the 
scalar. If the operand is of type CHAR 
then the value returned is the position 
in the EBCDIC character set for the 
character operand. If the operand is an 
enumerated scalar, then it returns the 
position in the enumeration (beginning 
at zero); for example, if COLOR = CRED, 
YELLOW, BLUE), then ORDCRED) is 0 and 
ORD(BLUE) is 2. 


If the operand is a pointer, then the 
function returns the machine address of 
the dynamic variable referenced by the 
pointer. Although pointers can be con- 
verted to INTEGERs, there is no function 
provided to convert an INTEGER to a 
pointer. 


Refer to "WRITESTR"” on page 141 and "READSTR"™ on page 141 for char- 


11.4.2 CHR Funetian 


Integer to Character Conversion 


Definition: 


function CHR( 
I INTEGER ) 
CHAR; 


Where: 


I is an INTEGER expression that is 
to be interpreted as a character. 


This function is the inverse function to 
OR for characters. That is, 
"ORDCCHRCI))=I" if I is in the subrange: 


ORDCLOWESTCCHAR))..ORDCHIGHEST (CHAR) > 


If the operand is not within this range 
and checking is enabled then a runtime 
error Will result, otherwise the result 
is unpredictable. 
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The Enumerated Scalar Function 


+ 11.4.3 Scalar Conversion + 11.4.4 FLOAT Function 

+ + 

+ + 

+ Integer to Scalar Conversion + Integer to Real Conversion 

+ + 

+ Definition: + Definition: 

+ + 

+ | function type-id¢ + | function FLOAT( 

+ I INTEGER) + I > INTEGER ) 

+ scalar-type; + > REAL; 

+ + 

+ Where: + 

+ + Where: 

+ I is an integer valued expression + 

+ that is to be converted to an + I is an INTEGER valued expression. 

+ enumerated scalar. + 

+ + 

+ + 

+ + 

+ Every type identifier for an enumerated + This function converts an INTEGER to a 
+ scalar or subrange scalar can be used as + REAL. Pascal/VS will convert an INTEGER 
+ a function that converts an integer into + to a REAL implicitly if one operand of 
+ a value of the enumerated scalar. These + an arithmetic or relation operator is 
+ functions are the inverse of ORD. + REAL and the other is INTEGER. This 
+ + function is useful in making the conver- 
+ + sion explicit in the program. 

+ 

+ Example: 

+ 

+ type 

+ DAYS = (SUN, MON, TUES, WED, 

+ THU, FRI, SAT); 

+ 

+ 

+ DAYS‘ 0) is SUN 

+ DAYS(3) is WED 

+ DAYS(6) is SAT 

+ DAYS(7) is an error 

+ BOOLEAN(0) is FALSE 

+ BOOLEAN(1) is TRUE 

+ 

+ 

+ 

+ 
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11.4.5 TRUNC Function 
Real to Integer Conversion 


Definition: 


function TRUNC( 
R 


REAL ) 
INTEGER; 


function TRUNC( 
S SHORTREAL ) 
INTEGER; 


Where: 


R is a REAL valued expression. 
S is a SHORTREAL valued expression. 


This function converts a REAL expression 
to an INTEGER by truncating the operand 
toward zero. 


Examples: 
TRUNCC 1.0) is 1 
TRUNCC 1.1) is 1 
TRUNC(C 1.9) is 1 
TRUNCC 0.0) is 0 
TRUNC(-1.0) is -1 
TRUNC(-1.1) is -1l 
TRUNC(-1.9) is -l 


11.4.6 ROUND Function 


Real to Integer Conversion 


Definition: 


function ROUNDC 
R REAL ) 
INTEGER; 


function ROUND( 
S = SHORTREAL ) 
> INTEGER; 


Where: 


R is a REAL valued expression. 
S is a SHORTREAL valued expression. 


This function converts a REAL expression 
to an INTEGER by rounding the operand. 
This function equivalent to 


if R > 0.0 then 

ROUND == TRUNCCR + 0.5) 
else 

ROUND == TRUNCCR - 0.5) 


Examples: 
ROUNDC 1.0) is 1 
ROUND( 1.1) is 1 
ROUND( 1.9) is 2 
ROUND( 0.0) is QO 
ROUND(-1.0) is -1l 
ROUND(-1.1) is -1 
ROUND(-1.9) is -2 
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11.4.7 STR Function 


Convert to String 


Definition: 


function STRC 
> 4 


CHAR or packed 
arrayll..n] of 


CHAR ) 
STRING; 


Where: 


X is CHAR or packed arrayl[l..n] of 
CHAR expression. 
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This function converts either a CHAR or 
packed array[1..n] of CHAR to a STRING. 
Pascal/VS will implicitly convert a 
STRING to a CHAR or packed arrayll..n] 
of CHAR on assignment, but all other 
conversions require you to explicitly 
state the conversion. You may assign a 
CHAR to an packed arrayl[1..n] of CHAR by 
either: 


var 
AOC =: ALPHA; 
CH : CHAR; 


AOC := STRCCH); 


or 
AOC := * *; AOCLI] == CH; 


+ 


++et 


+Hete eee eee eee eee eet 
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11.5 MATHEMATICAL ROUTINES 


These routines defined various mathematical transformations. 


11.5.1 MIN Function 


MINimum Value of Scalars 


Definition: 


function MIN¢ 
E0, 


En scalar-type) 
scalar-type; 
Where: 


Ei is an expression of a scalar 


type. All parameters must be 

of the same type except where 

noted below. 
The MIN function returns the minimum 
value of two or more expressions. The 
parameters may be of any scalar type, 
including REAL. The parameters may be a 
mixture of INTEGER and REAL expressions, 
in which case, the result will be of 
type REAL. In all other cases, the 
parameters must be conformable to each 
other. 


+e eet 


+e e eee eee ee eee eet 
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11.5.2 MAX Function 


Maximum Value of Scalars 


Definition: 


function MAX¢ 
E0, 


En scalar-type) 
scalar-type; 


Where: 


Ei is an expression of a scalar 
type. All parameters must be 
of the same type except where 
noted below. 


The MAX function returns the maximum 
value of two or more parameters. The 
parameters may be of any scalar type, 
including REAL. They may be a mixture 


of INTEGER and REAL expressions, in 
which case, the result will be of type 
REAL. In all other cases, the parame- 


ters must be conformable to each other. 
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11.5.3 PRED Function 


Predecessor Value of a Scalar 


Definition: 


function PRED( 
5 


scalar) 
scalar; 


Where: 


S is any scalar expression. 


This function returns the predecessor 
value of the parameter expression. The 
PRED of the first element of an enumer- 
ated scalar is an error. If the option 
“*CHECK is ON, a runtime error will be 
raised if the PRED of the first element 
is attempted. If the checking is not 
performed, the results of the PRED of 
the first value is not defined. 
PREDCTRUE) is FALSE and PREDC('B') is 
"A'. The PRED of an INTEGER is equiv- 
alent to subtracting one. PRED of a 
REAL argument is an error. 
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11.5.% SUCC Function 
Successor Value of a Scalar 


Definition: 


function SUCC( 
5 scalar) 
> scalar; 


Where: 


S is any scalar expression. 


This function returns the successor val- 
ue of the parameter expression. The 
SUCC of the last element of an enumer- 
ated scalar is an error. If the option 
“CHECK is ON, a runtime error will be 
raised if the SUCC of the last element 
is attempted. If the checking is not 
performed, the results of the SUCC of 
the last value is not defined. 
SUCCCFALSE) is TRUE and SUCCC'B') is 
"C'. The SUCC of an INTEGER is equiv- 
alent to adding one. SUCC of a REAL 
argument is an error. 


11.5.5 ODD Function 


Test for Integer is Odd 


Definition: 
function ODD( 
I 


INTEGER) 
BOOLEAN; 


Where: 


I is an INTEGER to be tested 
for being odd. 


This function returns TRUE if the param- 


eter I is odd, or FALSE if it is even. 


11.5.6 ABS Function 


Absolute Value 


Definition: 


function ABS( 
I INTEGER ) 
INTEGER; 


function ABS(¢ 
R REAL ) 
REAL; 


Where: 


I is an INTEGER expression. 
R is a REAL expression. 


The ABS function returns either a REAL 
value or an INTEGER value depending the 
type of its parameter. The result is 
the absolute value of the parameter. 
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11.5.7 SIN Function 


Compute Sine 


Definition: 
function SINC 
x 


Where: 


X is an expression that evaluates 
to a REAL value. 


The SIN function computes the sine of 
parameter X, where X is expressed in 
radians. 
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11.5.8 COS Function 


Compute Cosine 


Definition: 


function c0s¢ 
x 


Where: 


X is an expression that evaluates 
to a REAL value. 


The COS function computes the cosine of 
the parameter X, where X is expressed in 
radians. 


11.5.9 ARCTAN Function 


Compute Arctangent 


Definition: 
function ARCTAN( 
x 


Where: 


X is an expression that evaluates 
to a REAL value. 


The ARCTAN function computes the 
arctangent of parameter X. The result is 
expressed in radians. 


11.5.10 EXP Function 


Compute Exponential 


finition: 


function EXP( 
x 


Where: 


X is an expression that evaluates 
to a REAL value. 


The EXP function computes the value of 
the base of the natural logarithms, e, 
raised to the power expressed by parame- 
ter X. 
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11.5.1] LN Function 


Compute Natural Log 


Definition: 


function LN¢ 
»4 


Where: 


X is an expression that evaluates 
to a REAL value. 


The LN function computes the natural 


logarithm of the parameter X. 
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11.5.12 SQRT Function 
Compute Square Root 
Definition: 


function S@RT¢ 
x 


Where: 


X is an expression that evaluates 
to a REAL value. 


The SQRT function computes the square 
root of the parameter X. If the argu- 
ment is less than zero, a run time error 
is produced. 


C 


11.5.13 SQR Function 
Compute Square 


Definition: 


function SQR¢ 
Yo 


REAL): REAL; 
function SQRc 

X : INTEGER): INTEGER; 
Where: 


X is an expression that evaluates 
to a REAL or INTEGER value. 


The SQR function computes the square of 


the argument. If the argument is of 
type REAL, then a REAL result is 
returned, otherwise the function 


returns an INTEGER. 


+ 
+ 
+ 
+ 
+ 
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11.5.14 RANDOM Function 


Compute a Random Number 


Definition: 


function RANDOMC 


S + INTEGER) REAL; 


Where: 


S is an expression that evaluates 
to an INTEGER value. 


The RANDOM function returns a_ pseudo 
random number in the range >0.0 and 
<1.0. The parameter S is called the 
seed of the random number and is used to 
specify the beginning of the sequence. 
RANDOM always returns the same value 
when called with the same non zero seed. 
If you pass a seed value of 0, RANDOM 
will return the next number as generated 
from the previous seed. Thus, the gen- 
eral way to use this function is to pass 
jt a non zero seed on the first invoca- 
tion and a zero value thereafter. 
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11.6 STRING ROUTINES 


These routines provide conven‘ent means of operating on string data. 


11.6.1 LENGTH Function 


Length of String 


Definition: 


function LENGTH( 
5 > STRING) 
> 0..32767; 


Where: 


S is a STRING valued expression. 


This function returns the current length 
of the parameter. The value will be in 
the range 0..32767. 
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11.6.2 MAXLENGTH Function 
Maximum Length of a String 


Definition: 


function MAXLENGTHC 
S) > STRING) 
> 0..32767; 


Where: 


S is a STRING valued expression. 


This function returns the maximum length 
of the parameter string. The value will 


+ be in the range 0..32767. 


tee et 


+e eee eet 


teeter eerer ere t+—+t 


+ 
+ 


11.6.3 SUBSTR Function 


Obtain Substring 


Definition: 


function SUBSTRC 
const SOURCE 
START 
LEN 


STRING; 
INTEGER; 


INTEGER): STRING; 


function SUBSTR( 
const SOURCE 
START 


STRING; 


INTEGER): STRING; 


Where: 

SOURCE 
which a substring will be 
returned. 


is a STRING expression from 


START is an INTEGER expression that 
designates the first position 
in the SOURCE to be returned. 
is an INTEGER expression that 
defines the number of 
characters to be returned. 


LEN 


The SUBSTR function returns a substring 
from the specified source string 
CSOURCE). The second parameter (START) 
specifies the starting position within 
the source from where the substring is 
to be extracted. (The first character 
of the source string is at position 1). 
The third parameter (LEN) determines the 
length of the substring. If the length 
is omitted, the substring returned will 
be the remaining portion of the source 
string from position START. 


The value of START+LEN-1 must be less 
than or equal to the current LENGTH of 
the string, otherwise, an error diagnos- 
tic will be produced at run time. 


Examples: 


SUBSTRC'ABCDE’,2,3) yields ‘"BCD’ 
SUBSTRC*ABCDE',1,3) yields "ABC? 
SUBSTRC'ABCDE',4) yields 'DE' 

SUBSTRC*ABCDE’,1) yields 'ABCDE' 
SUBSTRC*ABCDE’,2,5) is an error 


+ 
+ 
+ 
+ 
+ 
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11.6.4 DELETE Function 


Delete Substring 


Definition: 


function DELETEC 

const SOURCE 
START 
LEN 


STRING; 
INTEGER; 


INTEGER): STRING; 


function DELETEC 
const SOURCE 
START 


STRING; 


INTEGER): STRING; 


Where: 


SOURCE is a STRING expression from 
which a portion will be 
deleted. 

START is an INTEGER expression that 

designates the first position 

in the SOURCE to be deleted. 

is an INTEGER expression that 

defines the number of 

characters to be deleted. 


LEN 


The DELETE function returns the source 
string CSOURCE) with a portion of the 
string removed. The second parameter 
CSTART) specifies the starting position 
within the source where characters are 
to be deleted. (The first character of 
the source string is at position 1). 
The third parameter (LEN) specifies the 
number of characters to be deleted. If 
the length parameter is omitted, all 
remaining characters are deleted; more 
precisely, the string is truncated 
beginning at position START. 


An attempt to delete a portion of the 
source beyond its length is an execution 
time error. 


Examples: 


DELETEC'ABCDE',2,3) yields 'AE' 
DELETEC*'ABCDE',3) yields ‘AB’ 
DELETEC*ABCDE',3,1) yields 'ABDE' 
DELETEC'ABCDE',1) yields '' 
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+e et 
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11.6.5 TRIM Function + 11,6.6 LTRIM Function 
+ 
+ 
Remove Trailing Blanks + Remove Leading Blanks 
+ 
Definition: + Definition: 
+ 
function TRIM( + | function LTRIMC 
const SOURCE : STRING) + const SOURCE : STRING) 
> STRING; + > STRING; 
+ 
+ 
Where: + Where: 
+ 
SOURCE is the STRING to be trimmed. + SOURCE is the STRING to be trimmed. 
+ 
+ 
+ 
+ 
The TRIM function returns the parameter + The LTRIM function returns the parameter 
value with all trailing blanks removed. + value with all leading blanks removed. 
+ 
Example: + Example: 
+ 
TRIMC” AB ') yields ' A B' + LTRIMC® AB ') yields "AB !* 
TRIMC? ") vields '! + LTRIMC' ‘) vields '' 
+ 
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11.6.7 COMPRESS Function 


Remove Multiple Blanks 


Definition: 


function COMPRESS( 
STRING) 


const SOURCE 
STRING; 
Where: 


SOURCE is a the STRING expression 
to be compressed. 


The COMPRESS function replaces multiple 
blanks with a single blank. 


Example: 
COMPRESSC'A B 


CD ') yields 'A B CD ' 


te eee 
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11.6.8 YNDEX Function 


Lookup String 


Definition: 


function INDEX¢ 


const SOURCE STRING; 
const LOCKUP STRING) 
0..32767; 


Where: 


SOURCE is a STRING that contains 
the data to be compared against. 

LOOKUP is the data to be looked 

up in the SOURCE. 


The INDEX function compares the second 
parameter against the first and returns 
the starting index of the first instance 
where LOOKUP begins in SOURCE. If there 
are no occurrences, then a zero is 
returned. 


Examples: 


var 
S : STRING; 
S := "ABCABC?: 


INDEX(S,'"BC') yields 2 
INDEX(S,'X') yields 0 
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11.6.9 TOKEN Procedure 


Find Token 


Definition: 


procedure TOKEN( 
var POS > INTEGER; 

const SOURCE STRING; 
var RESULT ALPHA); 


Where: 


POS is the starting index in SOURCE 
of where to look for a token, it 
1s set to the index of where to 
resume the search on the next 
use of TOKEN. 

SOURCE is a STRING that contains 
the data from which a token 
1s to be extracted. 

RESULT is the variable which will 

be returned with token found. 


The 


TOKEN procedure 
string looking for a token and returns 


scans the SOURCE 
it as an ALPHA. The starting position 
of the scan is passed as the first 
parameter. This parameter is changed to 
reflect the position which the scan is 
to be resumed on subsequent calls. 
Leading blanks, multiple blanks”) and 
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trailing blanks are ignored. If there 
15 no token in the string, POS is set to 
LENGTHCSOURCE)+1 and RESULT is set to 
all blanks. 


A token is defined to be any of: 


° Pascal/VS identifier - 1 to 16 
alphanumeric characters, '$' or an 
underscore. The first letter must 
be alphabetic or a '$*, 


e Pascal/VS 
page 18. 


unsigned integer - see 


° The following special symbols: 


+ - x 7 -> A) $ 
= <> < <= >= > ' 
¢ ) [ J ' " % 
| & && {| = a= # 
{ 3 CO) OO 
Example: 
I := 23 
TOKENCI,', Token+', RESULT) 
I is set to 8 
RESULT is set to 'Token 
TOKEN would return the same if 


I were set to 3, that 
leading blanks are 


1s> 
ignored. 


+e eet 
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11.6.10 READSTR 


Read Data from a STRING 


Definition: 


precedure READSTR( 
const s STRING; 
v ? see below); 


Where: 


s is a STRING expression that 
is to be used for input. 

v is a list of one or more 
variables, each must be one 
of the following types: 

- INTEGER (Cor subrange) 
- CHAR Cor subrange) 
REAL 
SHORTREAL 
STRING 
packed array of CHAR 


The READSTR procedure reads character 
data from a source string into one or 
more variables. The actions of READSTR 
are identical to that of READ except 
that the source data is extracted froma 
string expression instead of a text 
file. See "READ and READLN- (CTEXT 
Files)" on page 109. 


As in the READ procedure, variables may 
be qualified with a field length expres- 


sion. See the example below. 
var 
I,J: INTEGER; 
S =: STRINGC100); 
$1 : STRING(100); 
CH CHAR; 
cc packed arrayl1..10] of CHAR; 
So: "36 245ABCDEFGHIJK’; 


READSTR(S,1,J:3,CH,CC:5,51); 


the variables would be assigned: 


I 36 

J 24 

CH "5? 

cc "ABCDE ‘ 
$l "FGHIJK'; 


LENGTH(S1) 6 
The READSTR Procedure 


+e eee 
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11.6.11 WRITESTR 


Write Data to a STRING 


Definition: 


procedure WRITESTR(¢ 
var is STRING; 
e : see below); 


Where: 


8s is a STRING variable 

e is an expression of one of the 
following types: 
- INTEGER Cor subrange) 

CHAR Cor subrange) 

REAL 

SHORTREAL 

BOOLEAN 

STRING 

packed array[1..n] of CHAR 


Pascal/VS accepts a special para- 
meter format which allows you. 
to specify a length of the result. 


The WRITESTR procedure converts expres-— 
sions into character data and stores the 
data into a string variable. The seman- 
tics of WRITESTR are identical to WRITE, 
except that the target of the data is to 
a STRING rather than to a text file. 
See "WRITE and WRITELN (TEXT Files)" on 
page 112. 


As in the case of WRITE, the expressions 
being converted may be qualified with a 
field length expression. 


var 

I,J: INTEGER; 

S =: §TRING(C100); 

R > REAL; 

CH CHAR; 

Io:= 10; J := -123; 

R := 3.14159; 

CH := 'H!5 

WRITESTR(S,1:3,J5:5,'ABC',CH, 
R:5:2); 


the variable S would be assigned: 
" 10 -123ABC% 3.14! 
The WRITESTR Procedure 
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11.7 GENERAL ROUTINES 


These routines provide several useful features of the Pascal/VS runtime environment. 


11.7.1 


TR°CE Procedure 
Routine Trace 


Definition: 


procedure TRACEC 


var F TEXT); 


Where: 


F is the file that will receive 
the trace listing 


This procedure displays the current list 
of procedures and functions that are 
pending execution (i.e. save chain). 
Each line of the listing contains the 
name of the routine, the statement num- 
ber where the call took place, the 
return address in hexadecimal and the 
name of the module that contained the 
calling procedure. 

The file F is the TEXT file to which the 
information is to be written. 
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11.7.2 HALT Procedure 


Halt Program Execution 


Definition: 


procedure HALT; 


This routine halts execution of an Pas- 
cal/VS_ program. That is, this can be 
considered to be a return from the main 
program. 


+eeet 
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11.8 SYSTEM INTERFACE ROUTINES 


These routines provide interfaces to system facilities: 


ent on the implementation of Pascal/VS. 


11.8.1 DATETIME Procedure 


Get Date and Time 


Definition: 


procedure DATETIME(C 
var DATE, 
TIME ALFA); 


where: 


DATE is the returned date. 
TIME is the returned time. 


This procedure returns the current date 
and time of day as two ALFA arrays. The 
format of the result is placed in the 
first and second parameters respective- 
ly: 


mm/dd/yy 
HH:MM:SS 
where: 
mm is the month expressed as a two 


digit value. 

is the day of the month. 

is the last two digits of the 
year. 

is the hour of the day expressed 
in a 24 hour clock. 

is the minute of the hour. 

is the second of the minute. 


dd 
yy 


HH 


MM 
SS 


eee tee +e tet 


++ ett 


in general they are depend- 
11.8.2 CLOCK Function 


Get Execution Time 


Definition: 


function CLOCK : INTEGER; 


The value returned is the number of 
microseconds the program has been run- 
ning. Note: In an MVS system: the time 
is “TASK” time; and in a CMS system: the 
time is "CPU virtual” time. 
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11.8.3  PARMS Function 


Get Execution Parameters 


Definition: 


function PARMS STRING; 


The PARMS function returns a string that 
was associated with initial invocation 
of the Pascal/VS main program. 


144 Pascal/VS Reference Manual 


See eee ee eee ee ++ eet 


+e eee 


11.8 RETCODE Procedure 


Set Program Return Code 


Definition: 


procedure RETCODE( 


RETVALUE =: INTEGER); 


where: 


RETVALUVE is the return code to be 
passed to the caller of the 


Pascal/VS program. The value 
is system dependent. 


The value of the operand will be 
returned to system when an exit is made 
from the main program. If this routine 
is called several times, only the last 
value specified will be passed back to 
the system. 


HEHEHE EEE HE HH 
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+ 
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Syntax: 


include-statement: 
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12.0 THE % FEATURE 


---> % ---> INCLUDE ---7--- > id € id ) ---- nr rrrrrrrqrr- > 
| ern > jd -------------------- >] 
check-statement: 
---> % ---> CHECK —7------3-3-3-3- 3-33-94 ---7--- Tor? ON ----- | > 
---> POINTER ----- > ---> OFF ---> 
---> SUBSCRIPT ---> 
---> SUBRANGE ----> 
---> FUNCTION ----> 
---> CASE -------- > 
---> TRUNCATE ----> 
print-statement: 
---> % ---> PRINT ---7--- > ON morn pr rrr rr rrr rrr rrr rrr rrr rrr > 
Toes ofr --->) 
list-statement: 
-~--> % ---> LIST ---7--- > ON wort rp rrr rrr rrr ccc > 
Too-; OFF --->] 
page-statement: 
---> % ---> PAGE -r rrr rrr rrr rrr rrr rr rrr rrr ern > 
cpage-statement: 
---> % ---> CPAGE ---> unsigned-integer ~--- - rrr errr errr ter > 
title-statement: 
---> % ---> TITLE ---> any-character-string ----------3----- 7-5 rrr > 
skip-statement: 
---> % ---> SKIP ---> unsigned-integer ~------- rrr r rrr rr tro > 
margins-statement: 
“7~7-> % ---> MARGINS ---> unsigned-integer unsigned-integer -----~--~- > 


enable or disable a number of compiler 
options and features. The compiler 
treats a % command as a trigger symbol 


+ text between 
+ end-of-line. 


the 


The % feature of Pascal/VS is used to + which causes the compiler to 


statement and 


The % 


Feature 


ignore all 


the 
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12.1 THE *%INCLUDE STATEMENT 


The INCLUDE statement causes source from 
a library file to be inserted into the 
input stream immediately after the cur- 
rent line. More precisely, the compiler 
is directed to begin reading its input 
from a library file; when the end of the 
file is reached, the compiler will 
resume reading from the previous source. 
There forms of the INCLUDE 


are two 


statement: 
° “ZINCLUDE library-name(member-name) 
° “INCLUDE member-name 


The first form references a library file 
and a specific member in the file.5 

The second form references a specific 
member from a default library. 


program ABC; 
const 

“4include CONSTS 
type 

4include TYPES 
var 

%include VARS 
“include LIBI¢PROCS) 
begin 


end 


Example of *INCLUDE statement 


12.2 THE %CHECK STATEMENT 


The CHECK statement gives you the abili- 
ty to enable or disable the runtime 
checking features of Pascal/VS. The 
checking may be enabled for part or all 
of the program. The compiler will check 
the following: 


° use of a pointer whose value is NIL 
CPOINTER). 

° use of a subscript which is out of 
range for the array index 
CSUBSCRIPT). 

° lack of an assignment of a value to 


a function before exiting from the 
function CFUNCTION). 


5 Under VM/CMS, 
name 
catenated). 


OS, 
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and MVS/TSO operating environments, 
is actually the "DD name" of a partitioned data set (which may be con- 
If the library name is omitted, the default is SYSLIB. 


whick is not 
for the target 


° assignment of a value 
in the proper rangz 
variable (SUBRANGE). 


° use of the predefined functions PRED 
or SUCC where the result of the 
function is not a value in the type, 


1.e. underflow or overflow of the 
value range (SUBRANGE). 

° the value of a CASE statement selec- 
tor which 15 not equal to any of the 
CASE labels (CASE). 

° the value of ae string will be 
checked to be sure it will fit into 


the target string on an assignemnt 
CTRUNCATE). 


If the check option is missing, then all 


of the above checks will be assumed 
applicable. For example, '"*CHECK ON! 
activates all of the checks. '"XCHECK 


POINTER OFF’ will disable the check on 
pointer references. The default is: 
% CHECK ON 

The %CHECK statement, like the 
statements in this section, is a direc” 
tion to the compiler. Its effect is 
based on where it appears in the text 
and is not subject to any structuring 
established by the program. 


other 


12.3 THE %PRINT STATEMENT 


The PRINT statement is used to turn on 


and off the printing of source in the 
listing. The default is: 

% PRINT ON 
12.4 THE *LIST STATEMENT 


The LIST statement is used to enable or 
disable the pseudo-assembler listing of 
the Pascal/VS compiler. This option 
only has affect if the LIST compiler 
options is enabled. 


It is often required 
pseudo~assembler listing 
srall section of a module, 
it suppressed elsewhere. 
done as follows: 


to view the 
for only a 
and to have 
This can be 


1. Insert a line at the beginning of 
the module that consists of 


“LIST OFF 


the specified library 


C 


SEE EEE EEE EEE HEHEHE HEHE He HHH He Hee eet 


2. At the beginning of each section of 
code for which an assembler listing 


is required, insert 
“2LIST ON 
3. At the end of each code section 
insert 


“LIST OFF 


4. Compile 
option. 


the module with the LIST 


12.5 THE *%PAGE STATEMENT 


The PAGE statement is used to force a 
skip to the next page on the output 
listing of the source program. 


12.6 THE %CPAGE STATEMENT 


The CPAGE statement is used to force a 
page eject if there are less than a spe- 
cified number of lines left on the cur- 
rent page of the output listing. This 
is useful to make sure there is suffi- 
cient room for a unit of code, thereby 
not having it split across two pages. 
Example: 


% CPAGE 30 


12.7 THE *%TITLE STATEMENT 


The TITLE statement 
title in the listing. 


is used to set the 
It also causes a 


Settee eeeetee te 
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page skip. The title is printed as spe- 
cified on the statement, there is no 
change from lower case to upper case. 


The default is no title. 


1*‘.8 THE %SKIP STATEMENT 


The SKIP statement is used to force one 
or more blank lines to be inserted into 
the source listing. 


12.9 THE %MARGINS STATEMENT 


The MARGINS statement redefines the left 
and right margins of the compiler input. 
The compiler skips all characters that 
lie outside the margins. The statement 
has the form 


“MARGINS mn 


where "m" is the new left margin and "n" 
is the new right margin. 


If the MARGINS statement appears in a 
library member which is being "included” 
by the “INCLUDE statement, the new mar- 
gins will have affect for the duration 
of the member only. When the end of the 
member 185 reached and the previous 
source is resumed, the margin settings 
will revert back to their previous con- 
dition. 
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A.1 THE SPACE DECLARATION 


space-type: 


---> Space ---> [ --~->{constant-expr}---> ] 


The need arises to represent data within 
storage areas which do not have the same 
fixed offset within each instance of the 
area. Examples of this include entries 
within a directory, where each entry may 
be of variable length, and processing 
variable length records from a buffer. 
To solve this problem, Pascal/VS pro- 
vides the space structure. 


A variable declared with the space type 
has a component which is able to ‘float’ 
over a storage area in a byte oriented 
manner. Space variables are accessed by 
following the variable's name with an 
integer index expression enclosed in 
square brackets. The index represents 
the offset Cin bytes) within the space 
storage where the data to be accessed 
resides. The offset is specified with 
an origin of zero. 


The constant expression which follows 
the space qualifier in the type defi- 
nition represents the size of the stor- 
age area (Cin bytes) associated with the 
type. 


The component type of the space may be 
of any type except a file type. 


An element of a space may not be passed 
as a var parameter to a routine. Howev- 
er, an element may be passed as a const 
or value parameter. 


A.2 SPACE REFERENCING 


is selected by 
index expression, enclosed 


A component of a space 
placing an 


PEE EEE EEE EEE HEE EEE EEE EE EEE HEHEHE HEHEHE HEHEHE HEH 


A.0 THE SPACE TYPE 


---> of --->{type} 


within square brackets, after the space 
variable (just as in array references). 
The indexing expression must be of type 
INTEGER (Cor ai subrange thereof). The 
value of the index is the offset within 
the space at which the component is to 
be accessed. The unit of the index is 
the byte. The index is always based 
upon a zero origin. The component will 
be of the space base type. 


If the "%CHECK SUBSCRIPT’ option is ena- 
bled, the index expression will be 
checked at execution time to make sure 
that the computed address does not lie 
outside the storage occupied by the 
space. An execution time error diagnos- 
tic will occur if the value is invalid. 
(For a description of the CHECK feature 
see "The %CHECK Statement" on page 146). 


var 
S$: space[100] of 
record 
A,B: INTEGER 
end; 
begin 


{base record begins 
at offset 10 within 
space } 

S$[T10].A := 26; 

$£10].B := 0; 

end; 


Space Referencing Examples 
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tee t+ 


+t e+ 


++ 


tee te ++ teetet + 


+ +— 


A standard identifier is the name of a 
constant, type, variable or routine that 
is predefined in Pascal/VS. The name is 
declared in every module prior to the 
start of your program. You may redefine 


B.0 STANDARD IDENTIFIERS IN PASCAL/VS 


the name if you wish; however, it is 
better to use the name according to its 
predefined meaning. 


The identifiers that are predefined are: 


Standard Identifiers 


ABS function 
ALFA type 
ALFALEN constant 
ALPHA type 
ALPHALEN constant 
ARCTAN function 
BOOLEAN type 

CHAR type 

CHR function 
CLOCK function 
CLOSE procedure 
cOLs function 
COMPRESS function 
cos function 
DATETIME procedure 
DELETE function 
DISPOSE procedure 
EOF function 
EOLN function 
EXP function 


convert an 


close a file 


FALSE constant 
FLOAT function 
GET procedure 
HALT procedure 
HBOUND function 
HIGHEST function 
INDEX function 
INPUT variable 
INTEGER type 
LBOUND function 
LENGTH function 
LN function 
LOWEST function 
LTRIM function 
MARK procedure 
MAX function 
MAXINT constant 
MAXLENGTH function 
MIN function 
MININT constant 
NEW procedure 


convert an 


default 


constant of type BOOLEAN, 


compute the absolute value of an INTEGER or REAL 
array of 8 characters, 
HBOUND of type ALFA, 
array of 16 characters, 
HBOUND of type ALPHA, 
returns the arctangent of the argument 

data type composed of the values FALSE and TRUE 
character data type 

integer to a character value 

returns the number of micro seconds of execution 


indexed 1..ALFALEN 
value is 8 

indexed 1..ALPHALEN 
value is 16 


returns current column on output line 

replaces multiple blanks in a string with one blank 
returns the cosine of the argument 

returns the current date and time of day 

returns a string with a portion removed 

deallocate a dynamic variable 

test file for end of file condition 

test file for end of line condition 


returns the base of the natural log (e) 
raised to the power of the argument 


FALSE < TRUE 


integer to a floating point value 
advance file pointer to next element of 
halts the programs execution 

determine the upper bound of an array 
determine the maximum value of a scalar 
looks up one string in another 

input file 

integer data type 

determine the lower bound of an array 
determine the current length of a string 
returns the natural logarithm of the argument 
determine the minimum value of a scalar 

returns a string with leading blanks removed 
routine to create a new heap 

determine the maximum value of a list of scalars 
maximum value of type INTEGER 

determines the maximum length of a string 
determine the minimum value of a list of scalars 
minimum value of type INTEGER 

allocate a dynamic variable from most recent heap 


input file 
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ODD function returns TRUE if integer argument is odd 

ORD function convert a scalar value to an integer 

OUTPUT variable default output file 

PACK procedure copies an array to a packed array 

PAGE procedure skips to the top of the next page 

PARMS function returns the system dependent invocation parameters 
PDSIN procedure open a file for input from a partitioned data set 
PDSOUT procedure open a file for output from a partitioned data set 
POINTER type type to permit passing arbitrary pointers a routine 
PRED function obtain the predecessor of a scalar 

PUT procedure advance file pointer to next element of output file 
RANDOM function returns a pseudo-random number 

READ procedure routine to read data froma file 

READLN procedure routine to read the end of line character of TEXT file 
READSTR procedure converts a string to values assigned to variables 

REAL type floating point represented in 370 long floating point 
RELEASE procedure routine to destroy one or more heaps 

RESET procedure open a file for input 

RETCODE procedure sets the system dependent return code 

REWRITE procedure open a file for output 

ROUND function convert a floating point to an integer by rounding 
SEEK procedure positions an opened file at a specific record 
SHORTREAL type floating point represented in 370 short floating point 
SIN function returns the sine of the argument 

SIZEOF function determine the memory size of a variable or type 

SQRT function returns the square root of the argument 

SQR function returns the square of the argument 

STR function convert an array of characters to a string 

STRING type a type for an array of char whose length varies during 


execution up to a maximum length 
a type for dynamically allocated strings of an 
execution determined length 


STRINGPTR type 


SUBSTR function returns a portion of a string 

succ function obtain the successor of a scalar 

TERMIN procedure open a file for input from the terminal 
TERMOUT procedure open a file for output from the terminal 

TEXT type file of CHAR 

TOKEN procedure extracts tokens from a string 

TRACE procedure writes the routine return stack 

TRIM function returns a string with trailing blanks removed 
TRUE constant constant of type BOOLEAN, TRUE > FALSE 

TRUNC function convert a floating point to an integer by truncating 
UNPACK procedure copies a packed array to an array 

UPDATE procedure opens a file for both input and output 

WRITE procedure routine to write data to a file 

WRITELN procedure routine to write end of line to a TEXT file 


WRITESTR procedure converts a series of expressions into a string 
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C.0 SYNTAX DIAGRAMS 


actual-parameters: 


--7--7-->{ tant- J--y--> 2 { tition} --poryprn yoo > sco > 
[1 feonstentvexpr) "qin treet tien ST] ] 
J be eer err nen rrr enn cnr ren nnn nnn nna- > 


, 


assert-statement: 


~--> assert ---> Lexpr} mr rrr rrr rrr rr rrr rr rr nn ne nnn nn rn ners ernrnn > 


assignment-statement: 


_— {variabl e}-—~—__? := —> {expr }—@ _—_ ——- 
>{id: function}—> 


base-scalar-type: 


> {enumerated-scalar-type}——> 
—{—> {id: scalar-type) —————>» —________________________» 
>{subrange-scalar-type} > 


case-statement: 


—> case —>{expr}——> of ——> 
Cid 
>{range} > : ——>{statement} > 
>< 
O_O . < 


<------- . <------ ] 
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check-statement: 


—~--> % <---> CHECK -rqprr rrr nmr To? ON ----- | > 
---> POINTER ----- > ---> OFF ---> 
---> SUBSCRIPT ---> 
---> SUBRANGE ----> 
~--> FUNCTION ----> 
---> CASE -------- > 
---> TRUNCATE----- > 
cpage-statement: 
---> % ---> CPAGE ---> unsigned-integer ~~ rrr rrr rrr rr rrr rer errr renner > 
compound-statement: 
—> begin —T” istatement}—7T—_> end — 
<—— 5 < 
constant: 
cere sunsigned-nunberI—>F 
> + —]y” unsi gned-number }—> 
>-—> 


constant-dcel: 


——> const “To = —>{constant-expr} > 3 > 
< 


J 


continue-statement: 


———> CONTINUE ~— mmr rrr rrr nnn nnn nnn nnn nnn nn nnn nnn nn nn nn nnn nn nnn nnn nnn > 


declaration: 


>{label-dcel } > 
>{constant-dcl} > 
> {type-del }} > 
> {var-del }—————_> 
---> {def-del}--------- > ‘ 
--->{static-del}------ > 
[7 Wrelnereeh ialneteeies ‘ 
>{routine-del} > > 
def-del: 
TOTTI GEE TITS Tr? rr oo? Heypedmnne go weeyennnnnnnn > 
Lo eee eee eee nee nee J J 
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directive: 

FORWARD 
EXTERNAL -o rrr rrr rrr errr errr errr nnn > 
FORTRAN ~-r rrr rrr rrr rrr rrr rrr rrr rrr nnn > 


empty-statement: 


enumerated-scalar-type: 


—> ¢ >{id} >) 
ae 


expr? 
constant-expr: 


—>{simple-expression} 
>{simple-expression}——> 


VVVVV VY 


factor: 
>{function-call} 


>{variable} 


> {set-constructor }— —-_ > 
> (€ —>{expr}—> > 
~-->{structured-constant} -------- 9 rn > 
> not —> {factor }— 


>{unsi gned-constant} ————_______—_—_—____—_—_———">> 


field: 
—>{id} 
---> € --->{constant-expr}---> ) ---> 
field-list: 
: oo 
>{fixed-part} > 3 —J—? Wwariant-part}—l __—> 5 —7—> 
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file-type: 
—> file of —>{type}—_@_ _—_— i 


fixed-part: 
>{field} > : —>{type} > 
| | Ce > <——_] 
Lee eee ee ee eee ee >4 
<hr 


for-statement: 


—> for —>{id}——> := —>{expr} > to —_—__._ 7, —? fexpr}—> 
~~ LS downto —> | 
C 
> do —>{statement}—_—______LL—> 


formal: 


> var Ti > : ——>{id: type} 
---> const --> <— > <—l 

{id} > 3} ———> lid: type} 
<—,c lt 


> {procedure-heading} 


>funct i on-head ing} ——aAHA ee 


formal-parameters: 


> ¢ >{formal} > 3} > 
Le i | 
> 


function-call: 


—>{id: function}—> lactual-parameter s}———_—_______________—_—_—_"—————"> 


function-heading: 


—> function —>{id}—>{formal-parameters}——> : ——>{id: type}———> 


goto-statement: 
> goto —> {label }— i 
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>{digit}————> 
—> {letter} >{letter}———>|- —> 


--->f{underscore}--> 
< 


if-statement: 


—> if —>{expr}—> then 7 iskekemens TS 
> else —>{statement}—> 


include-statement: 


-a-> % ---> INCLUDE ---> do --- pono nnn nn nnn rn ron nnn crn prn snc cn > 


index-type: 


>{enumerated-scalar-type}——> 
fi d: scalar-type) > —________________________» 
>{subrange-scalar-type} > 


label: 
> {unsi gned-integen } 
L---3 (iq) --------------—— > 
label-dcl: 
—> label >{label} i <<<» 
Le pn 


leave-statement: 


Tao > LRAVE ~ on m nmr nmr rn ttn rn nnn nn rrr nr rrr nnn nnn nnn > 


list-statement: 


<--> % ===> LIST ---7---> ON ----- [ocr ccc crn ccc nce snc > 
---> OFF ---> 


margins-statement: 


---> % ---> MARGINS ---> unsigned-integer unsigned-integer --------------- > 

module: 

— {program—modu le} 
--->{segment-module}---> 
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pade-statement: 


---> % ---> PAGE ----------------------------------- 2-2 enn eo 22-2 ---- > 


pointer-type: 


—> a —> {ti d: type} 


print-statement: 


---> % ---> PRINT ---7--- > ON qr rr mq rr rrr rr rrr rrr rrr tr rrr rrr > 
TLS ofr --->1 
procedure-call: 


— > {i dt procedure) ewer} pd 
> ¢ >f{expr >>)>}— 
Le ae 


procedure-heading: 


—> procedure ——>{id}——>{formal-parameter s} ———_______——_> 


program-module: 
—> program ——> {id} 


>{declaration}——>1 


>{compound-statement}——> . —————— 

range: . 

+ —? fconstant=expr os 
+ ---> .. --->{constant-expr}---> 


real-number? 


-=<--> , — eee > — 7 7+ }—-—————— > Typ —---———-—————~——~—~—— ~~ 
* To Ter7? thex-digiti---7 XR 7 
>{digit} >. Tem fdigit} > 
< < 
< 
i 
> E 


> >{digit} > 
> + —>] Le 
>-—> 


record-structure: 


+++ 
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record-type: 


Topo record —>({field-list}—— end 
> packed ——> 


repeat-statement: 


——> repeat ——_ Tr? istatement}—7—_> until —> {expr} 
<——_— > < 


repetition: 


---> {constant-—expr } -- rer rrr rrr rr rrr rrr rrr rrr rrr 


return-statement: 


STO > RBTURN mor tr rn rn snr nn en en smn men nen en 


routine-del: 


TK? {procedure“heading 


>{function-heading} 


_ 


ce _. Ooms WM 
>{directive}—> ; 

or ideclarationj—>/ 
>{declaration}—> 
>{compound-statement}——> 


seqment-module: 


---> SEGMENT --->{id}---> ; 7 


[ { I t 
{ ( ( 
l ] { 
Vv Vv Vv 

om om om 
a < co 
0 ao «< 
> F TF 
I t 0 
a a ( 
ie) fe) Qa 
H~ ~~ OO 
an 
! 1 ~ 
( ] ( 
( ( ( 
! i] ( 
t ( t 
( ] ] 
1 ( I 
( t ( 
( I ( 
Vv Vv Vv 
ss a a a es 


set-constructor: 


— [ >{expr} >)j-— 
> .. > {expr}—> 
| [J » < 
> 


— | 


Vv 
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set-type: 


== eal set of —> (base-scalar-type}——_______—_——"> 
> packed ——> 


simple-expression: 


skip-statement: 


Satoh =H—> SKIP -==>) unsigned=integer sos tra lear tT cca sar SSS tessa aaa sss > 


space-type: 


---> space ---> [ --->{constant-expr}---> J] ---> of --->{type}------------- > 


statement: 


Te {label}]——> : me dl 
< 


-->{fassert-statement) ------ ror > 
(cares {assignment-statement }— —___________—_—_—_—_—"> , 
> {case-statement }— —H—__________—__—_———_> J 
-——> {compound-statement }——_______________—_—_—_—_> 
r---> {continue-statement} ----------- He > 
———> {empty-statement } — — ——_—_> 
t——> {for-statement} — i ———@@ ———_________—_—_—_—_—_—_—_—_——_> 
——> {goto-statement }— —@ —_ "> 
——> {i f-statement )—_ i@—@™- @@ —oO@ cc ——” 
eoeteaviceetatement) SSS SSHS SSS SSeS Sse Sessa Sa ease aSss= > 
>{procedure-cal 1) — <_‘_—m i ioe 
>{repeat-statement}——@ > 
--->{return-statement} ~------ rrr rrr nn > 
>{while-statement }— —_—_—_> 
>{with-statement)}— i —@ —__—_—> > 
static-del: 
---> static meer Sea ene a : --->{type})---> ; aa fesse os Soe > 


Peta ge a SE eae See | J 
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+++ 


> ' a a , > 
| <—— {character} < | 
bond t s--7o--> {hex-digit}=---y---> "XC ------ > 
< ae ee ee ee 


structured-constant: 


~-~[ 777? frecord-structure}——--7 osiesteatesieaienheienienieienieieieiatnieieteieiaieteienebetenetennianeiaiaiaanaiaaneaae > 
--->f{array-structure}---> 


subrange-scalar-type: 


>{constant}——> .. — >{constant-expr} > 
L---> pange ~--->{constant-expr}---> .. --->{constant-expr}--->4 
term 
>{factor} 


title-statement: 


---> % ---> TITLE ---> any-character-string --rrt rrr rr rrr tr rrr rrr > 
type: 
> {id type} i#gi7 WT 
> {enumerated-scalar-type}A 
> {subrange-scalar-type}—o oi 
>{array-type}-—J 7 
> {record-type} —_ i—@o@i 
>{set-type}—J7 AW 
>{file-type}——_AA]RTD OH 
“> {pointer-type} i > 
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+++ + 
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type-dcel: 


—> type Te = ——>{typel—> ; > 
< 


unsigned-constant: 


> {unsi gned-number} > 
>{string}——————__> 
>{lid: constant }———> 
> nil ————————_-> 


unsigned-integer: 


a a 
g 


unsigned-number : 


>{unsigned-integer} Sr 
~~ Ls treal-number}———— 


value-assignment: 


--->{variable}---> <= ~-~T 777? feonstant-expression}—-~--7 saiaheeieienaieneinnenenenenenateieneD > 
--->{structured-constant}---> 


value-del: 
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variable: 


—> {id}—> 


> [ > {expr} > Jj 
Le a a 


> . —>{id: Field}—————————__> 


> ~-___ 


variant-part: 


> {range} > 3: ¢ >{field-list}——7—> ) > 
>< Lee FE | 
_ . < 


> 


while-statement: 


> While ——>{expr}——> do ——>{statement}———_—_______—>> 


with-statement: 


——> nith >{variable} > do —>{statemant }——___—_____—_ 
ake 
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actual-parameters........... 
array-structure............. 
array-type...... cece eee eee 
assert-statement............ 
assignment-statement...... ind 


compound-statement.......... 
CONSTANE se cldeie sense ee tes Sere ols 


constant-del............ odeNe 
constant-expr..... ccc eee e eee 
continue-statement.......... 


cpage-statement..........206- 


declaration.......cccccvecces 
deftsdéeh. oye eis, Se nehere: Whe 


empty-statement..........06- 


enumerated-scalar-type...... 
Q@XPR sig scieole was Geese ee Scone nee 
POC LOM io cave iow tel SS) diese 0 ede guletereieuse 
FVELS oc ovsrece.cterecs ep SUSAR Kore 0 5S 
FUORI LS Cs oie e658 cetita ns ete re 
file-type........ Secs eyes sigdea ts 
fixed-part....... Suceutai vec ie teeta acer 
for-statement....... exebeveeleiete 
formal..... SU ea eco an aniet late aie ieee 


formal-paramaters........... 
function-heading............ 
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Actual parameter specifies what is to be 
passed to a routine. 


Array type is the structured type that 
consists of a fixed number of elements, 
each element of the same type. 


Assignment compatible is the term used 
to indicate whether a value may be 
assigned to a variable. 


Automatic variable is a variable which 
is allocated on entry to a routine and 
is deallocated on the subsequent return. 
An automatic variable is declared with 
the var declaration. 


Base scalar type is the name of the type 
on which another type is based. 


Bit is one binary digit. 


Byte is the unit of addresability on the 
System/370, its length is eight bits. 


Compatible types is the term which is 
used to indicate that operations between 
values of those types are permited. 


Component is the name of a value in a 
structured type. 


Constant is a value which is either a 
literal or an identifier which has been 
associated with a value in a const dec- 
laration. 


Constant expression iS an expression 
which can be completely evaluated by the 
compiler at compile time. 


Dynamic variable is a variable which is 
allocated under programmer’ control. 
Explicit allocates and deallocates are 
required; the predefined procedures NEW 
and DISPOSE are provided for this pur- 
pose. 


Element is the component of an array. 


Entry routine is a procedure or function 
which may be invoked from outside the 
module in which it is defined. The rou- 
tine is called entry in the module in 
which is defined. An entry routine may 
not be imbedded in another routine; it 
must be defined on the outermost level 
of a module. 


Enumerated scalar type is a scalar that 
is defined by enumerating the elements 
of the type. Each element is repres- 
ented by an identifier. 


External routine is a procedure or func~ 
tion which may be invoked from outside 
the module in which the routine is 
defined. 


Field is the component of a record. 


E.0 GLOSSARY 


File type is a data type which is the 
mechanism to do input and output in 
Pascal/Vs. 


Fixed part is that part of a record 
which exists in all instances of a par- 
ticular record type. 


Formal parameter iS a parameter as 
declared on the routine heading. A 
formal parameter is used to specify what 
is permitted to be passed to a routine. 


Function is a routine, invoked by coding 
its name in an expression, which passes 
a result back to the invoker through the 
routine name. 


Identifier is the name of a declared 
item. 


Index is the selection mechanism applied 
to an array to identify an element of 
the array. 


Internal routine is a routine which can 
be used only from within the lexical 
scope in which it was declared. 


Lexical scope identifies the portion of 
a module in which a name is known. An 
identifier declared in a routine is 
known within that routine and within all 
nested routines. If a nested routine 
declares an item with the same name, the 
outer item is not available in the 
nested routine. 


Module is the 
Pascal/Vs. 


compilable unit in 


Offset is the selection mechanism of a 
space. An element is selected by plac- 
ing an integer value in parenthesis. 
The origin of a space 15 based on zero. 


Packed record type is a record structure 
in which fields are allocated in the 
minimum number of bytes. Implementation 
defined alignment of data types will not 
be preserved in order to pack the 
record. Packed records may not be 
passed by read/write reference. 


Pass by read only reference is the 
parameter passing mechanism by which the 
address of a variable or temporary is 
passed to the called routine. The 
called routine is not permitted to modi- 
fy the formal parameter. If the actual 
parameter is an expression, a temporary 
Will be created and its address will be 
passed to the called routine. A tempo- 
rary is also created for fields of 
packed records. 


Pass by read/write reference is the 
parameter passing mechanism by which the 
address of a variable is passed to the 
called routine. If the called routine 
modifies the formal parameter, the cor- 
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responding actual parameter is changed. 
Only variables may be passed via this 
means. Fields of packed records will 
not be permitted to be passed in this 
way. 


Pass by value is the parameter passing 
mechanism by which a copy of the value 
of the actual parameter is passed to the 
called routine. If the called routine 
modifies the formal parameter, the cor- 
responding actual parameter is not 
affected. 


Pointer type is used to define variables 
that contain the address of dynamic var- 
iables. 


Procedure is a routine, invoked by cod- 
ing its name as a statement, which does 
not pass a result back to the invoker. 


Program module is the name of the com- 
pilable unit which represents the first 
unit executed. 


Record type is the structured type that 
contains a series of fields. Each field 
may be of a type different from the 
other fields of the record. A field is 
selected by the name of the field. 


Reserved word is an identifier whose use 
is restricted by the Pascal/VS compiler. 


Routine is a unit of a Pascal/VS program 
that may be called. The two type of 
routines are: procedures and functions. 


Scalar type defines a variable that may 
contain a single value at execution. 


Segment module is a compilable unit in 
Pascal/VS that is used to contain entry 
routines. 


Set type is used to define a variable 


that represents all combinations of ele- 
ments of some scalar type. 
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Space type is used to define a variable 
whose components may be positioned at 
any byte in the total space of the vari- 
able. 


Statement is the executable unit ina 
Pascal/VS program. 


String represents an ordered list of 
characters whose size may vary at exe- 
cution time. There is a maximum size 
for every string. 


String constant is a string whose value 
is fixed by the compiler. 


Structured type is any one of several 
data type mechanisms that defines vari- 
ables that have multiple values. Each 
value is referred to generally as a com- 
ponent. 


Subrange scalar type is used to define a 
variable whose value is restricted to 
some subset of values of a base scalar 
type. 


Tag field is the field of a record which 
defines the structure of the variant 
part. 


Type defines the permissible values a 
variable may assume. 


Type definition is a specification of a 
data type. The specification may appear 
in a type declaration or in the declara- 
tion of a variable. 


Type identifier is the name given to a 
declared type. 


Variant part is that portion of a record 
which may vary from one instance of the 
record to another. The variant portion 
consists of a series of variants that 
may share the same physical storage. 


C 


Special Characters 


36, 37, 39, 40, 41, 52, 54, 


<< operator on INTEGERS 36, 78 

<> operator 36, 37, 39, 40, 41, 48, 52, 

54, 55 

<= operator 36, 37, 39, 40, 41, 48, 52, 
» 55 


+ operator 36, 40, 41, 48 
| operator 36, 39 

|| operator 52 

& operator 36, 39 

&& operator 36, 39, 48 

* operator 


< operator 
55 


-~ operator 
- operator 36, 40, 41, 48 
7 operator 36, 40, 41 
% statements 145 
CHECK 146 
CPAGE 146 
INCLUDE 146 
LIST 146 
PAGE 146 
PRINT 146 
SKIP 146 
TITLE 146 
> operator 36, 37, 40, 41 
> operator 39, 52, 54, 55 
>> operator on INTEGERs 36, 78 
>= operator 36, 37, 39, 40, 41, 48, 52, 
= operator 36, 37, 39, 40, 41, 48, 52, 
54, 55 


[a] 


ABS function 36, 37, 40, 41, 131 
adding operators 74 

ALFA operators 54 

ALFA predefined type 54 

ALPHA operators 

ALPHA predefined type 55 

and operator on INTEGERS 78 
ARCTAN function 40, 41, 133 

array referencing 67 

array structured constants 20 
array subscripting 

array type 42 

assert statement 84 

assignment of compatible types 32 
assignment of function value 85 
assignment statement 


binary integer constants 18 
BOOLEAN expressions 77 
BOOLEAN operators 39 
boolean predefined type 39 


Le ] 


case statement 86 

CHAR operators 37 

char predefined type 38 

CHECK compiler directive 146 
CHR function 36, 125 

CLOCK function 143 

CLOSE procedure 107 

COLS function 116 

comments) 17 

COMMON CFORTRAN) 28 
compatible types 32 

compile time initialization 29 
compound statement 

COMPRESS function 52, 139 
conformant STRING parameters 62 
const declaration 

constant declaration 24 
constant expression 71, 76 
constant expressions 18 
constants 18 

continue statement 89 
conversions 

conversions ona string 52, 53 
COS function 40, 41, 132 
CPAGE compiler directive 146 


[>] 


data alignement 59 

data storage requriements 59 
DATETIME procedure 143 
declaration 21, 23 
declaration order 22 

def variable declaration 28 
DELETE function 52, 137 
directives 61 
DISPOSE procedure 57, 120 

div operator 36 

div operator defined 37 
downto in the for statement 91 
dynamic variables 57, 68 
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EBCDIC 38 

empty statement 90 

enumerated scalar 34 

EOF function 109 

EOLN function 115 

example of 
array declarations 42 
array indexing 43 
assert statement 84 
assignment statement 85 
BOOLEAN expressions 77 
case statement 86 
compound statement 88 
COMPRESS function 139 
conformant strings 63 
const declaration 24 
const parameter 65 
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constant expressions 76 

constants 19 

continue statement 89 

def declaration 28 

DELETE function 137 

enumerated scalar 34 

EOF procedure 109 

expressions 73 

EXTERNAL function 63 

fields in a record 68 

file decalarations 50 

for statement 92 

function 79 

function returning a record 65 

goto statement 93 

HBOUND function 123 

HIGHEST function 122 

if statement 94 

INDEX function 139 

initializing an array 29 

label declaration 23 

LBOUND function 123 

leave statement 95 

logical expressions 78 

LOWEST function 122 

LTRIM function 138 

MARK and RELEASE 118 

nested comments) 17 

NEW procedure 119, 120 

offsets ina record 47 

otherwise in a case statement 87 

procedure invocations 96 

procedures and functions 65 

program module 22 

READ procedure 109, 110, 111 

READSTR procedure 140 

record declarations 45 

recursive function 65 

ref declaration 28 

repeat statement 97 

ROUND function 127 

scalar function 126 

SEGMENT module 22 

set decalaration 48 

space type 149 

static declaration 27 

structured constants 20 

subrange scalar 35 

subscripting an array 68 

SUBSTR function 137 

TOKEN procedure 140 

TRIM function 138 

TRUNC function 127 

type compatibility 33 

type declaration 25 

UPDATE procedure 106 

using a file 69 

using pointers 68 

using STRINGPTR 58 

using STRINGs 51 

using variables 67 

value declaration 29 

var declaration 26 

variant record 45, 46 

while statement 99 

with statement 100, 101 

WRITE procedure 112, 113 

WRITESTR procedure 141 
execution time string allocation 58 
EXP function 40, 41, 133 
expression 71 
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EXTERNAL directive 61 
EXTERNAL routines 63 
external variable 28 
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factor 71 

field 44, 46 

field list 44 

field referencing 68 

file referencing 68 

file type 50 

fixed part of a record 44, 45 
FLOAT function 36, 126 

for statement 91 

formal parameter 62 

formal parameter list 61, 62 
FORTRAN directive 61 

FORTRAN routines’ 63, 64 
FORWARD directive 61 

FORWARD routines 63 

function calls 79 : 
function declarartion 61, 62 
function heading 61 

function parameters 62 
function results 65 
functions in constant expressions 76 


[| 


GET procedure 107 
goto statement 93 


[« ] 


HALT procedure 142 

HBOUND function 52, 123 

heap 57 

hexadecimal integer constants 18 
hexadecimal real constants 18 
hexadecimal string constants 18 
HIGHEST function 36, 37, 39, 122 


[| 


identifiers 13 

if statement 94 

implicit conversions 31 

in operator 48 

INCLUDE compiler directive 146 
INDEX function 52, 139 
initialization 29 
initializing the Pascal runtime envi- 
ronment 64 

INTEGER operators 36 

INTEGER predefined type 36 

INTEGER storage mapping 36, 37 
interlanguage communication 64 
internal routines 63 


label declaration 23 

label format 23 

LBOUND function 52, 123 

leave statement 95 

LENGTH function 51, 52, 136 
lexical level 13 

lexical scope 13 

LIST compiler directive 146 

LN function 40, 41, 134 

logical expressions on INTEGERS 78 
logical operations on integers 37 
LOWEST function 36, 37, 39, 122 
LTRIM function 52, 138 


[ 


MAIN directive 61 

MAIN routines 63, 64 

MARK procedure 57, 118 

MAX function 36> 37> 39, 40, 41, 129 
MAXINT 36 

MAXLENGTH function 51, 52, 136 

MIN function 36> 37> 39, 40, 41, 129 
MININT 36 

mod operator 36 

mod operator defined 37 

module 21 

module, structure 21 
multi-dimensional array 42 
multi-dimensional arrays 67 
multiplying operators 74 

mutually recursive routines 63 
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NEW procedure 57, 119 
not operator 74 
not operator on INTEGERs 78 


[o ] 


ODD function 36, 37, 131 
offset quailfication 46 
operations on 
ALFA 54 
ALPHA 55 
BOOLEAN 39 
CHAR 38 
INTEGER 36 
REAL 40 
set 48 
SHORTREAL 41 
STRING 52 
operator precedence 71 
operators 74 
or operator on INTEGERS 78 
ORD function 37, 39, 125 
order of evaluation of BOOLEAN expres- 
sions 77 
order of evaluation of expressions 71 


[| 


PACK procedure 121 

packed array 42 

packed record 46 

packed set 48 

packed subrange 35 

PAGE compiler directive 146 

PAGE procedure 115 

parameter 62 

parameters 61 
parenthesized expression 71 

PARMS function 144 

pass by const parameters 62 
pass by read-only reference 
parameters 62 

pass by reference parameters 62 
pass by value parameters 62 
pass by var parameters 62 
PDSIN procedure 105 

PDSOUT procedure 106 
pointer referencing 68 
pointer type 57 

PRED function 36, 37, 130 
PRINT compiler directive 146 
procedure call statement 96 

procedure declaration 61 

procedure heading 61, 62 

procedure parameters 62 
program module 21 

PUT procedure 108 


[| 


RANDOM function 135 
READ procedure 109, 111 
Reading 
CHAR Data 110 
INTEGER Data 110 
packed array of CHAR Data 110 
REAL (SHORTREAL) Data 110 
STRING Data 110 
Variables with a Length 110 
READLN procedure 109 
READSTR procedure 52, 140 
real constants 18 
REAL operators) 40 
real predefined type 40 
record structured constants 20 
record type 44 
REENTRANT directive 61 
REENTRANT routines 63, 64 
ref variable declaration 28 
relational operators 74 
RELEASE procedure 57, 118 
repeat statement 97 
reserved words’) 15 
RESET procedure 103 
restrictions on a goto statement 93 
restrictions on file type 50 
restrictions on routines 63 
restrictions using the MAIN 
directive 64 
restrictions using the REENTRANT direc-— 
tive 64 
RETCODE procedure 144 
return statement 98 
revision codes iv 
REWRITE procedure 104 
ROUND function 40, 41, 127 
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routine declarartion 61, 62 
routine parameters 62 


[s | 


same type 32 


scalar conversion functions 80, 126 


scope 13, 44 

SEEK procedure 108 
SEGMENT module 21 

seprate compilation 63 
set operators 48 

set type 48 

short circuiting of BOOLEAN 
expressions 77 

SHORTREAL operators 41 
shortreal predefined type 41 
simple expression 71 

SIN function 40, 41, 132 


SIZEOF function 36, 37, 39, 40, 41, 48, 


52, 54, 55, 124 

SKIP compiler directive 146 
space declaration 149 

space element referencing 149 
special symbols 16 

SQR function 36, 40, 41, 135 
SQRT function 40, 41, 134 
statements 83 

static variable declaration 27 
storage mapping for a set 48 
storage mapping of a record 46 
STR function 37, 54, 55, 128 
STRING 58 

string constants 18 

STRING operators 52 
STRING parameters 62 

string type 51 

strings 3l 

structured constants 20 
subrange scalar 35 
SUBSTR function 52, 137 
SUCC function 36, 37, 130 


tag field 45 

term 71 

TERMIN procedure 104 

TERMOUT procedure 105 

TEXT predefined type 56 
TITLE compiler directive 146 
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to in the for statement 91 
TOKEN procedure 140 

TRACE procedure 142 

TRIM function 52, 138 
TRUNC function 40, 41, 127 
type compatibility 31 
type conversions 31 

type declaration 25 

type identifier 25 

type matching 32 

types 31 

types of routines 63 


Lv] 


UNPACK procedure 121 
unsigned-integer constants 18 
UPDATE procedure 106 

user definfed types 31 


[Lv ] 


value declaration 29 

var declaration 26 

variable declaration 26 
variable identifier 26 
variables 67 

variant part of a record 4%4, 45 


[| 


while statement 99 
with statement 100 
WRITE procedure 112, 114 
WRITELN procedure 112 
WRITESTR procedure 52, 141 
Writing 
BOOLEAN Data 113 
CHAR Data 113 
INTEGER Data 113 
Packed Array of CHAR Data 114 
REAL Data 113 
STRING Data 113 
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